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News and Reviews 


by M.R.Dunn, Co-Editor 


Some very interesting products have been released for the Atari. O.S.S., 
(10379 Lansdale, Cuperinto, CA 95014) the originators of the Atari BASIC, 
BASIC A+, etc., have come out with a very ambitious new line of products for 
the Atari, and are now shipping them. They have two new types of DOS, 
OS/A + ver.2 and ver.4 for double-density drives. The Version 4 allows you to 
use double-density, double sided, with various sector sizes so you can use it 
with an 8" or almost any drive. The version 2 can be used with either single or 
double density drives and is an improved version of the original OS/A +. 
Version 2 is included with all O.S.S. products, and version 4 is available from 
makers of Atari double density drives and controllers — see below. 

Mac/65 is a new, very powerful and fast full Macro assembler with 
debugger, compatible with the Atari Assembler files. | expect this will 
become the standard of assemblers for the Atari at only $80. 

TinyC at $100 and C/65 (a C-compiler) for only $80 which runs with MAC/65 
expand the Atari’s language abilities to a new level. All are very well 
documented, and we could use full reviews of them by you out there who 
know enough about them to do so! 

To go along with your new DOS, Software Publishers, Inc, 2500 E. Randol 
Mill Rd., Suite 125, Arlington, TX 76011 now has a double-density disk 
controller board, the ATR8000, allowing you to connect any 572 or 8" drive to 
your Atari for $500, and for only $250 more, a 64K upgrade with CP/M!! The 
basic price includes a RS-232 and Centronics parallel ports, so you save the 
price of a 850 interface. The CP/M will read disks from Xerox, Bigboard, 
Cromemco, Kaypro, Osbourne and North Star. More in the next issue after we 
get one. 


Also from Texas, Newell Industries, 3340 Nottingham In., Plano, TX 7507, 


who brought us the “Fast Chip" for the OS, now has a new OS board which 
allows you to put RAM ог ROM and use the extra “hidden” 4K. $115 and ир 
depending on the amount of memory, and a “бирегМоп” monitor to put in 
one of the slots for $30. 

Several months ago, | reviewed the МісгоСие printer buffer by 
MicroCompatatible Corp. | was having some trouble with it, so sent it back to 
the company. They called me, and gave me the choice of getting it fixed, or 
waiting a while for their new model and getting a new one for free! | now have 
their new SmartBuffer. They have also changed their name and address: Data- 
Match, 3810 Oakcliff Ind. Ct., Doraville, GA. 30340. The buffers come in 
various models, and price depends on number and type of ports as well as 
amount of memory. Mine has serial and parallel ports, and you can input and 
output either. All the new models are programable— ії is easy to change 
printer codes, so you can use a word processor set up for one printer, e.g., 
Atari 825, and use any other printer. The buffer works by allowing your 
computer to send the data to the printer at computer speed, then printing out 
while you are doing other things with your computer. A great time saver, and 
especially handy for the Atari because of the limited software for various 
printers. The ability to connect your computer using the parallel port, then 
connecting a serial printer is also a great plus; otherwise there are no word- 
processors allowing the use of a serial printer. This company really stands 
behind its products. Write them for details on prices, they start under $300. 

Alfred Handy Guides, POB 5964, Sherman Oaks, CA 91413 sent us a 
collection of their guides which cost only $2.95 each. Understanding Atari 
Graphics is a very nice little book loaded with much information and hints, 
including various charts (in color), lots on the GTIA modes, etc. Very nice and 
very handy. There is also one of the best guides I’ve seen on VisiCalc, and 
others on Understanding such subjects as LISP, BASIC, PASCAL, Word 
Processors, DataBase Managements, and others. A very nice collection of 
booklets so inexpensive you can afford to buy them if your interest is one of 
the above. Call 800-292-6122 if your local store doesn't have them. 

Speaking of handy guides, several months ago | recieved a 14 page guide, 
really a multiple folded card, called the Atari ProCard from On-Line Computer 
Centers OKC, 10944 A N. May Ave, Oklahoma City, OK 73120. It has all kinds 
of neat stuff — mostly tables of the kind you use all the time, but also various 
printer codes, error codes, Internal character set codes, etc. It costs $9.95, 
and | figured no one would buy it, but | find | use it at least 2 or 3 times a day 
when I'm using my computer and really find in invaluable!! 

Elcomp, 53 Redrock Lane, Pomona, CA 91766 has just released a number of 
new products. How to program your Atari in 6502 Machine Language $10, is a 
пісе 106 page book filled with hints and “pearls” on how to get started in 
6502. Not a comprehensive text-book, more of a book explaining difficult 
concepts and giving hints and aides to help you along the way. Their new 
inexpensive wordprocessor, АТЕХТ-1 is now ready, $30 tape, $35 cass. ог $70 
cart. | had a prelimery version but have not yet recieve the final version, so will 
wait until | do so before reporting on it. Their EPROM burner $180, and 
EPROM Cartridge for $30 are also out now. 

For Christmas, lII suggest a few products | use all the time and 
recommend to anyone without reservations —not to imply other similar 
products аге not as good or better for your needs. These are just the ones | 
use the most. Filemanager 800+ by Synapse for an easy to use Database 
system (see review this issue by Kirt Stockwell. 
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For word processors, | like Text Wizard for short articles, quick letters, etc, 
and Letter Perfect ROM version for multiple page essays and reports. The 
ROM version has the added benefit of being able to use any printer by making 
a user-defined printer handler, and is worth the extra money. 

ValForth by ValPar is an excellent, complete FORTH with many options —1 
don't believe you can do any better. 

The new МАС/65 by 055 is a macro-assembler hard to beat at any price, 
but at only $80 including the excellent new OS/A + version 2 DOS is ап 
incredible bargain. 

Paint by Reston is my favorite “Draw” program, even though you cannot 
save the pictures on a file and use them, as in the also excellent MicroPainter 
and Graphics Master by DataSoft. 

The best BASIC is BASIC A+ by OSS; | much prefer it to MicroSoft except 
when just copying a program from a MicroSoft listing. 

Any of the Tricky Tutorials from Santa Cruz Educational Software. 

Tach-master for measuring your disk drive speed and DataLink for your 
Modem are two programs by Tony Dobre and available from Swifty | use 
constantly. The Atari Computer by Lon Poole (Osborne/McGraw Hill, Atari 
Games and Recreations by Kohl et al (Reston), and The BASIC Handbook 2nd 
Ed. by David Lien (CompuSoft) are all excellent choices for the beginner to 
intermediate Atari owner, while the Compute's! Second Book of Atari is for 
the the more advanced user. 

For hardware products, Mosaic memory boards seem to be among the 
best, with Axlon and Tara also very good. For printers, | have had ог used the 
Centronics 737, 739, Epson, MPC and others, but my present printer, the IDS 
MicroPrism is by far the best in print quality and features. The Percom Disk 
drives are very worthwhile — our bulletin board has been using 2 of them 24 
hours a day for several months without one hitch. The SmartModem by Hayes 
is the nicest modem | һауе used. 

There are also many other very good products, but the above are the ones | 
use all the time, so are on the top of ту mind. All the companies mentioned 
are well known to me, either by meeting the heads at the various computer 
faires, visiting their companies or talking to them on the phone and all are 
very helpful and contantly trying to improve their products. It is interesting to 
note many of the products above were also recommended last year, although 
many are now in improved form. 

The most helpful person of all to the Atari community has got to be Bill 
Wilkinson of OSS, whose company not only started it all with the original 
Atari BASIC, but has continued to expand the capabilities of the Atari through 
new languages, operation systems, books, and through his fantastic articles 
in Compute! He even finds time somehow to answer questions on the phone, 
although he tends to call back in the middle of the night because it is the only 
time he has left over!! Thanks Bill, and have a nice Holiday Season. 

| also wish to thank all the other vendors who have been so generous іп 
sending us review copies of their products and to all the people who help put 
together the newsletter, write the articles and produce such fine programs. 
Last year | listed everyone and it took a page; this year it would take the whole 
Newsletter, so l'll give special thanks to our most prolific authors: Stan 
Ockers, Sydney Brown and Ruth Ellsworth, and of course, Marc Benioff, who 
is now busy at USC. Thanks you all and have a nice holiday season!! 


For your pleasure, you can send to our program exchange chairpeople 
Chuck and Jody Ross (during December and January only) for the following 
Disks: 

Best of 1982 — Game Disk 
Best of 1982 — Utility Disk 
Christmas Disk 1982 — mostly games from the Newsletter from July to Dec 
plus some great Christmas music by Ron and Aaron Ness, written with the 
help of Jerry White's Music utilities from PDI. 
“Тһе Pilot Disk by Ruth Ellsworth —filled with educational programs and 
demos written in Pilot 
SCOPY 810, our licensed high speed copy utility from Alliance Software 
which we can sell only to members. A really great and useful program. 
4/0 eq. OR 
Any 2 оп a double sided disk, $15 except for SCOPY 810 
Write: Chuck and Jody Ross, 2222 Ironwood, Eugene, OR 97401. 
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BURST IO 


by Pat Warnshuis, Editor, Portland Atari Club Newsletter, 
3116 S.W. Evelyn St., Portland, OR 97219 
(Reprinted from the June, 1982 issue) 


(The P.A.C. is one of my favorite Newsletters, especially the monthly “Toolkit” 
section with its outstanding utilities. Pat is not only an excellent editor, he is also 
a talented programmer and a wonderful person. The following should be be very 
useful for you. —MD) 


BURST IO (input-output) is an extremely fast method of transferring block data 
from cassette or disk to the computer memory or from the computer memory to 
your storage device. Burst IO (aka block IO) is not supported by ATARI ог 
Microsoft BASIC. BASIC supports either single string transfers or the GET and 
PUT for single bytes of data. However, to save a graphics 8 screen to disk using 
PUT in a FOR. . . МЕХТ loop requires some three minutes. Using Burst IO you can 
dump a screen to disk in léss than three seconds. 

Where will you want to use Burst IO? Anywhere you have a large block of data 
to move in or out of memory. For example, you can save and retrieve any screen in 
any graphics mode. You can save, load or edit complete character sets. You can 
predefine player-missile data, then save and load them using Burst IO. You can 
load contiguous blocks of data or complete data base management files. If you 
saw the introductory program for the PAC program library disks with the 
PORTLAND ATARI CLUB banners flashing across the screen, then you saw an ap- 
plication of Burst IO. In that routine the one thousand bytes of player-missile data 
was loaded from the disk so fast nobody even noticed the disk was turned on! 

First, a little background. (l'm going to talk about writing to a disk. The pro- 
cedures are the same for writing to a cassette.) When BASIC writes to the disk, it 
only writes in segments of 128 bytes. It never writes a single byte as is implied by 
the PUT command. When you issue a PUT command, BASIC takes that single 
byte and adds it to an IO buffer of 128 bytes. The buffer is merely a part of your 
memory which is dedicated as a temporary accumulator where BASIC coliects 
your individual bytes for an eventual sector write operation. (A sector is a block of 
128 bytes on the disk or a record of 128 bytes on the cassette.) 

BASIC keeps adding individual bytes to the buffer until the buffer is filled. 
When the buffer is filled, it writes the contents of the entire buffer to the disk in 
one operation. The only way you can write a partially filled buffer to the disk is to 
CLOSE a file or END a program. This is why you must CLOSE a file or END a pro- 
gram to get the last segment of your data saved. 

Similarly, when you do a ‘GET #3,A’ BASIC does not read a single byte from the 
disk. Rather, on the first GET command, it reads an entire sector of 128 bytes into 
the IO buffer. Then it sets a pointer to the first byte in the buffer and is ready to 
move single bytes from the IO buffer to where you want them. When the pointer 
goes beyond 128 bytes, BASIC knows it must read in the next complete sector 
and reset its pointer to the start of the IO buffer before it can do the next GET in- 
struction. 

In BURST IO, however, BASIC and the operating system do not use the IO buf- 
fer. Instead, you simply tell the Central Input-Output (CIO) routine in the operating 
system where the data starts in memory and how many bytes to write. BANG! The 
operating system moves the data out in 125-byte chunks directly from memory to 
the disk. (PII explain why it's 125 byte chunks instead of 128 byte chunks later.) 
Reading is even simpler in burst IO. You tell the CIO to read 65,000 bytes of data 
and tell it where to start storing the bytes in memory. When it gets to the end of 
the file, it stops reading. 

Let's say it again, for emphasis: You simply tell the CIO where to start saving or 
loading the data and how many bytes to transfer. 

The operating system does the transfer and returns the status of the operation, 
either A-OK or an error number, in a memory location which can be PEEK'd by 
your program. 

How do you do it? Well, first OPEN a file for read or write. BASIC then sets upa 
block of control data for the file. You can have eight files open at a time. BASIC 
keeps track of what you are calling each file, where the buffer for each file is (or 
where the start location is for Burst IO), whether it is a read or write operation, the 
number of bytes involved, and some hardware-peculiar information which you tell 
it about using the AUX1, AUX2 bytes in your OPEN statement. 

Oh, yes! It also keeps track of where the machine language routine is for get- 
ting in and out of the particular hardware which you are accessing: cassette, disk, 
printer, modem, CRT screen, etc. That's why you can talk to all of your hardware 
devices the same way. CIO only keeps track of WHERE the hardware driver is, not 
how it talks to the specific device. When the boys in the back room at ATARI 
wrote the rest of the operating system, they wrote the machine language routines 
for getting in and out of the standard devices, such as the disk, cassette, printer, 
etc. Then they made a table, called a Device Handler Table, which tells the CIO 
where each handler is. You can add your own handler routines and add them to 
the table. For example, if you have an odd-ball printer, or teletype machine, or a 
digitizer pad, or another computer, or any device at all, you patch in your code for 
talking to the device and add an entry in the device handler table to tell the CIO 
where the code is. Then you talk to the device the same way you talk to a disk, the 
CRT, or a printer. That is, you simply use GET/PUT, PRINT #/INPUT #, or burst IO. 

BASIC needs 16 bytes of data to keep track of each file which it has opened. 
For our purposes, FILE 0 data starts at location 834. Call the location ІОСВ (In- 
put/Output Control Block) for File 0. Then IOCB #1 is at IOCB + 16, ІОСВ #2 is at 
IOCB + 32, etc. At our ІОСВ# + 0 we POKE the direction command for our transfer: 
7 for read, 11 for write, 12 for append. At IOCB# + 2,3 we POKE the start address 
for the data. IOCB# +6,7 gets how many bytes we want to transfer. That's all! 

Then we do a little machine-language call routine to jump directly into the 
operating system's: CIO routine. This is the string you see so often which looks 
like this: BURSTIO$ = "hhh*LVd". The '*' and 'd' are in inverse video. Once the 
IOCB# data is set up, we initiate a burst IO by the statement: 
“XFER = USR(ADR(BURSTIOS$),16* CHAN#)”, where CHAN is the file number we 
used in our OPEN statement for the file. The BURTSIO$ routine moves the CHAN# 
to the hardware index register and jumps to the operating system's CIO routine 
which does the burst IO. 

Let's take another look at the screen editor which we ran in the June newsletter 
as an example of saving or loading text screens. 


1 DIM Ғ%(15):ОРЕМ 43,4,0,"K: :OPEN 42,12,0," E: :POKE 709,8:POKE 710,194 

2 ? "Read or Write ':GET #3,C:IF C282 THEN A=4:W=0:GOTO 4 

3 ? "NEW or Ааа “:GET #3,C:A =8 + (С = 65):W=1 

4 ? "FILE “;:INPUT F$:OPEN #1,A,0,F$:IF A=4 THEN 8 

5 ? "1 +С Creates next 5сгееп”:2 “+E Exits now’:GET #3,C:? “) +S Saves 
screen’’;:IF C=5 THEN 12 

6 СЕТ #3,C:IF C 

19 THEN PUT #2,C:GOTO 6 

8 C = PEEK(560) + 256* PEEK(561) + 4 

9 POKE 850,A+3-(A=9):POKE 852,PEEK(C):POKE 853,PEEK(C + 1): РОКЕ 
856,192:POKE 857,3 

10 C ZUSR(ADR("hhh*LVd"),16):1F W THEN 5 (* and d in reverse video!) 

11 GET #3,C:IF РЕЕК(851) = 1 THEN 8 

12 ? "END 


LN 1 opens the keyboard and screen editor so we can create a text screen. It also 
gives us the ever popular green screen. 

LN 2,3 find out if we want to read or write a screen. An “R” returns ап 82 so we set 
А = 4 for READ in our open statement. We also set a flag W = 0 which we use later 
to indicate we are not writing successive screens. If the keyboard returns 
anything other than an ‘R’, then we set A —8 for a write and set the write flag to 
W = 1. If the keyboard input is “А” for APPEND, we set A —9 for the OPEN state- 
ment. (Remember, this code is cryptic because I'm trying to squeeze a complete 
screen editor into less that 1K bytes.) 


LN 4 OPENS FILE #1 for our burst IO. So the start of our IOCB for this file will 
be 834 + 16, or location 850. 

LN 5 issues the prompt to remind the user of the control characters used to 
create a screen, edit a screen or save the screen. 

LN 6 demonstrates the power of the Atari operating system. This single line 
allows us to create an entire text screen using all of the editing features of the 
OS screen editor: enter, backspace, delete, insert, move the cursor, etc. 

LN 8 finds out where the pointer for the start of our screen data is so we can 
use the location in our busrt IO. 

LN 9 sets the IOCB command for a read or write, depending on our input in 
LN 2,3. POKE 852, PEEK(C):POKE 853, PEEK(C + 1) set the start location of our 
screen data. POKE 856,192:POKE 857,3 tell the IOCB how many bytes to 
transfer (The BASIC manual tells us a Graphics 0 screen has 960 bytes. (3x256 
+ 192). 

LN 10 initiates the burst IO to either read or write a screen to disk. If we аге 
writing screens, we go back to create the next screen. 

LN 11 waits for a keyboard input if we are reading screens. Following any 
keyboard input, we go read the next screen if the CIO returned a 1 for a status 
code. This means A-OK. If it runs into an end-of-file, we get a different code 
and fall through to LN 12. 

LN 12 clears the screen, and closes the file. If your disk has MENU on it, use 
RUN "D:MENU' instead. 


How about saving any screen in any graphics mode, including modified 
display lists? OK. First, recall that the screen display data is saved right at the 
top of memory. Location 106 always points to the top of memory. (Sometimes 
we lie to the operating system and tell it that top of memory is lower than it 
really is. This lets us steal some memory from BASIC for our own machine 
language routines or character sets or player-missile data, etc.) The very top 
of memory holds the text window for our screen if we used one. Then the rest 
of the screen data is saved below the window. Finally, the display list is saved 
immediately below the screen data. So-o-o-o-o-o. Why not save the display list 
along with the screen data? This way we can handle modified display lists 
also. (Thank you, Sheldon Leemon, from the Michigan ACE!) 

If we look at the pointer in 106, we have the Start of our data for burst IO. If 
we subtract the start of the display list from the top of memory, we have how 
many bytes to transfer. Might as well save all of the color registers and the 
graphics mode also. We can do this by discrete PUTs before we start the 
burst IO. 

When we retrieve our screen, the complete graphics mode will be set up 
the same as when we saved the screen. Better save the contents of 106 also. 
(If we're writing a program for another machine, we should tell our program 
the top of memory is as low as we can and still fit our program in. That way, 
our program might run on machines with less memory than ours.) 

Here's one approach to a general purpose screen save/load routine: 

Note we are going to save the display list also. Since the display list points to 
where the screen data is, we must first POKE 106 with the lowest memory 
which still permits our program to run. This will make the saved display list 
compatible with smaller machines. If we get this general purpose, we will do 
well to save and restore the contents of 106 also. LN 32500 saves the screen; 
LN 32510 retrieves the screen. 


1 ? '3D:SCRSAVE.LST'':? :? “Save any mode screen to disk.”:? “Load апу 
mode screen from disk.”:? 

2 ? “(Saves а! colors - display  list.)':?  :? 

3 ? "GOSUB 32500 to save screen.’’:? “СО5УВ 32510 to load screen.’’:? :? 
"Send FILES = D:filename.DAT" 

4 ? "MODE = Graphics mode of screen” 

5 ? "Must POKE 106,128 to be compatible with 32k machines.”:? :STOP 

10 REM D:SCRNSAVE.LST Save/retrieve any mode screen with display list & 
all color registers. 


32500 RAMTOP = PEEK(106)*256:DLIST = PEEK(560) + 256* PEEK(561): 
BYTES = RAMTOP-DLIST:HI = INT(BYTES/256):LO = BYTES-HI*256 

32502 CLOSE Я5:ОРЕМ #5,8,0,FILE$:PUT #5,MODE:PUT Я5,РЕЕК(560):РОТ 
Я5,РЕЕК(561) ў 

32503 FOR 11 = 704 TO 712:PUT #5,PEEK(II):NEXT II:I1OCB = 834 + 5* 16 
32504 РОКЕ ІОСВ, 11: РОКЕ ІОСВ + 2, РЕЕК(560): РОКЕ 
IOCB + 3,PEEK(561):POKE IOCB + 6,LO:POKE IOCB +7,HI 

ng SCRSAVE = USR(ADR(“‘hhh* LVd”),5*16):CLOSE #5:RETURN (reverse * 
and d) 

32510 CLOSE #5:ОРЕМ #5,4,0,FILE$:GET #5,;MODE:GRAPHICS MODE:GET 
#5,A:POKE 560,A:GET #5,A:POKE 561,A 

32511 FOR 11 = 704 TO 712:GET #5,COLR:POKE II,COLR:NEXT II 

32512 ІОСВ-834--5“16:РОКЕ ІОСВ,7:РОКЕ IOCB + 2,PEEK(560):POKE 
IOCB + 3, PEEK(561):POKE IOCB + 6,255:POKE IOCB + 7,255 

32514 SCRLOAD = USR(ADR("hhh* LVd’’),5* 16):CLOSE #5:RETURN (reverse * 
and d 


The idea when retrieving a screen is to replicate the graphics status of the 
machine when you saved the screen. 

Now you can generate, edit, save and retrieve PM data or character sets. Go 
modify those FONDEDIT or SUPERFONT programs to eliminate the DATA 
statements and save the complete character sets directly. Go ahead and save 
strings longer than 256 bytes. You know the address of the string from the 
ADR function and how many bytes it takes from the LEN functon so you’re all 
set for BURSTIO! Machine language routines for page six will load in an 
instant. Once you get them entered the first time, simply burst them out to a 
disk file for future use. Speedy. Elegant! 


10 REM ЖЖЖ ЖЖ ЖЖЖ ЖЖ ЖЖЖ 
20 REM Ж A DEMONSTRATION OF Ж 
30 REM XPSYCHOLOCICAL ТЕ5ТІМСЖ 


40 REM X 
30 REM * LINT HUTCHINSON Ж 
60 REM Ж & 
70 REM КОКОКО ООО КАК 
80 REM 
90 НЕМ 


100 REM ЖОККО Ж 

110 REM XMAJOR VARIABLES 
120 РЕН ЖЮК Ж 

130 REM | 

140 REM Ж NAMES 1А5Т NAME OF INDIVIDUAL 

150 REM X D(300) ARRAY OF 300 TEST TEST ITEMS 

160 REM X SEX$ SEX (M OR Е) 

170 REM X RECORDS INDIVIDUAL'S RECORD THAT RESULTS | 
В,Т,2 SCORES) ARE STORED IN | 

180 REM Ж ITEMS | TEST ITEMS THAT THE INDIVIDUAL RES 
PONDS TO 

190 REM X DATA$ МАМЕ OF FACTOR SCALE CREATED 

200 REM Ж CHECKED NUMBER OF TEST ITEMS CHECKED 

210 REM ЖА DATA STATEMENT INDICATING SPECIFIC 
TEST ITEM USED IN CREATING А FACTOR SCALE 

220 REM ЖІ LENGTH OF RECORDS 

230 REM X R3M,5D USED IN CORRECTING FOR NUMBER OF T 
EST ITEMS CHECKED 

240 REM X АЈ КК TOTAL NUMBER OF INDICATIVE AND CON 
TRAINDICATIUE DATA TEST ITEMS USED TO СРЕАТЕ 

FACTOR SCALES 

250 REM 

260 REM XXkkXPROGRAMIooOOK 

270 DIM NAMES(30),D(300) ,SEX$(1) , RECORDS (14) , ITEMS (10) 
DATAS (20) 

280 OPEN &1,4,0,"D: TABLE" 

290 OPEN 42,4,0,"K:" 


300 ? CHR$(125):POSITION 10,7:7 "LAST NAME":POSITION 1 
LX Led 

310 POSITION 20,7:ІНРІЛ NAME$:POSITION 20,9:INPUT SEX$ 
:? CHR$(125) 

320 RECORD$(1,21z"D:":RECORD$ (3,10) =МАМЕ $ 

330 L=LEN(RECORDS$) 

340 IF L()10 THEN RECORDS ( (L1) , (L4+1)}="X":GOTO 330 
330 RECORD${11,14)=".5C0" 

360 OPEN $3,8,0,RECORD$ 

370 7 #3; МАМЕФ; CHR$(1553) ; SEX$ 

380 CHECKED=0: POKE 752,1 

390 FOR I=1 TO 300 

400 7 CHR$(125): INPUT $1; ITEMS 

410 POSITION 10,12:? " I AM "; ITEMS 

420 POSITION 10,13:GET #2,U 

430 IF CHR$(U)z"Y" THEN D(I)-1:CHECKED-CHECKED4 : GOTO 
450 

440 D(I)z0 

450 NEXT I 

460 7 $3;"NUMBER CHECKED ="";CHECKED:POKE 65,0:POKE 55 
3,0 

470 IF CHECKED?20 AND CHECKEG<=48 AND SEX$="M" THEN OP 
EN $4,43,0,"D. CONV. 77" 

480 IF CHECKED?73 AND CHECKED<=110 AND SEX$z"M'" THEN 0 
PEN #440, "0:С0Му. 77" 

490 IF CHECKED?110 AND CHECKED<=138 AND SEX$="M" THEN 
OPEN $4,4,0,"D: CONV. 7?" 

500 IF CHECKED)138 AND CHECKED(-225 AND SEX$-"M" THEN 
OPEN $4,4,0,"D: CONU , 77" 

910 JJse5:KK-13:G05UB 550 

380 JJz19:KK-0: GOSUB 550 

530 CLOSE #1:CLOSE $2:CLOSE #3:CLOSE #4 

540 POKE 559,34:РОКЕ 752,0:END 

590 FOR J=1 TO JJ 

350 READ A 

570 R=R+tD(A) 

580 NEXT J 

590 IF KK=0 THEN 640 

600 FUR K=1 TO KK 

610 READ А 

609 RzR-Bt(A) 

630 NEXT K 

640 INPUT #4;854,5D 

650 Z=INT({R-RSM}/S5D) 

640 T=50+10%Z 

670 READ ПАТА% 

680 7 £2; DATAS , "T-5CORE zUUCT"Z-SCORE z"";Z,"RAM =""; 
R 

890 Bz0:Tz0:Zz0 

700 RETURN 

710 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18, 
19 ,20,21,22,23,24,25 

780 DATA 42,47,69,81,124,141,142,143,200,201,227,236,2 
44 

730 DATA FIRST SCALE ..... 

740 DATA 2,6,7,11,11617,32,43,61,74,79,92,111,123,125, 
200,201,210, 220 

750 DATA SECOND SCALE..... 


TX Happy 


NOTE: If this were an actual program, much more care would have to be taken 
to mask keys and trap errors. No attempt has been made to do this in this 
demonstration. —Lint 


Here is a demonstration of how you can create a program to display and 
evaluate psychological tests. In fact, any test or set of test items which 
requires a YES or NO response can use this or a similar format. This program 
will not run as is. It is designed only as an example of techniques which can 
be used. This demonstration will: 

1. Show how to use a one-dimensional array to store responses 

2. Show how factor scales (dimensions) can be built using data statements 
of specific test items 

3. How to interface conversion scales to correct raw scores 


LINES 280-310 
Open #1 is the Ше [D1:TABLE] that contains the actual test items [item$] 
which will be displayed on the screen for individual evaluation. Each test item 
can be evaluated as either applying "Y" or not applying “М” to the individual. 
The type of test items displayed on the screen could be: shy, happy, sad, 
impulsive, etc... 

Open #2 is to the keyboard so the individual responding to the test item will 
not have to hit RETURN. 

After this has been taken care of, the individual's last name [name$] and 
sex [sex$] are determined and inputed. 


LINES 330-380 

The file which will store the individual's records, #3, is created using his/her 
last name [name$]. If the last name is less than 8 characters (10 including D:), 
X's are added so an extension “.SCO” can be attached. This procedure is not 
necessary but allows you to selectively print only files with the '".SCO" 
extension. 

The name and sex are then put in this file as identification. The CHR$(155) 
on LINE 370 allows the variables to be put in the file in separate fields by 
generating an EOL character. 


LINES 390-450 
The loop І is from 1 to 300 - 300 being the total number of test items 
contained іп file D1:TABLE. If you only have 10 test items to be evaluated, the 
loop will be from 1 to 10. These test items, to which the individual responds, 
are displayed one at a time on the screen. The test item is correctly 
positioned on the screen with the additional words: 
| AM (and then the test item) 


Line 420 waits for a response. If the response is “Ү” then two important 
events take place at LINE 430: 

1. The ARRAY D at location | 041) is given a value of 1 if a “Y” is inputed 

2. The number of test items checked is increased by 1 

Notice: The ARRAY D at Line 270 is DIM D(300). It is no mere coincidence 
the number of test items in D:TABLE also equals 300. and the loop І also is 
equal to 300. A Jungian might consider it synchronicity but you and | know 
better. The ARRAY D(300) is being used as a place holder. Every time an 
individual indicates a test item with a "Y" response, the number “1” is 
dropped into the array. 
EXAMPLE: If the 5th test item [item$] in the file О:ТАВІЕ is "strange" the 
screen will display on the 5th time: 
1 AM STRANGE 
The [I] variable in the loop for! = 1 to 300 (LINE 390) also is equal to 5, it being 
the 5th time through the loop. If the response is "Y" to this test item 
(CHR&(U) = “Ү”), then the value of the ARRAY D at D(lI) will equal 1 or D(5) = 1. 
This way we have indicated the 5th test item was responded to with a “Y” and 
the value of D(5) is 1. 

|f the response is anything else than "Y" then D(I) will equal 0 or in this 
case D(5) - 0 at LINE 440. We know for certain the individual response was 
not a "Y" to this test item. If you decide to leave LINE 440 out of your program 
the test items not responded to with a “Ү” will be filled with garbage. Garbage 
in... garbage #$e&e’@ out .. . Thank you, Fritz. You might even consider the 
possibility of filling the ARRAY D(300) with O's before any response is asked 
of the individual! 

In this demonstration, the number of test items checked [checked] is 
important in determining which conversion file to use (#4 D:CONV.??), LINE 
430 increases the value of [checked]. 


LINE 460 turns the screen off for faster calculations, turns the sound off and 
enters the number of test items checked in the individual's file. 
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LINES 470-500 

These lines use two variables [checked] and [sex$] to determine which 
conversion file to open (84,4,0,“0:СОМУ.22)”. In reality the extension ?? could 
be anything 1m,1f,2m,2f,3m,3f, . . . indicating the file 1,2,3,4 and if the contents 
are male (m) or female (f). 


LINES 510-520 

Variables [JJ] and [KK] together indicate the total number of test items 
used to construct a factor scale (such as dominance, submissiveness etc.) In 
this demonstration, the first factor scale is dependent on a total of 38 test 
items - JJ + KK. The data statements [A] indicate which specific test items 
make up this first factor scale, i.e., test items 1,2,3,4...25 LINE 710 and test 
items 42,47,69...244 in LINE 720 — a total of 38 test items. The raw score [R] 
for this 38 test item first factor scale is the total of each test item's value (1 or 
0) as determined by the individuals input ("Y'" 2 1, “М” -0”) 

[JJ] is the total number of indicative test items and KK is the total number 
of contraindicative test items making up the first factor scale. The [JJ] test 
items (taken from the first 25 data statements) are added together and then 
the [KK] value is subtracted from this, resulting in the raw score [R] for the 
first factor scale. There are 25 data statements with values added [JJ = 25] and 
13 data statements with values subtracted [KK = 13]. 


LINES 550-670 
The loop [J] (J = 1 TO JJ) indicates how many data statements will be read 
at LINE 560. At 570 the raw score [R] is increased in the following manner: 
R = R + D(A) 
Up to this point [R] = О and [A] is the first data statement А = 1 at LINE 710. 


1- specific test item #1 
1- value of specific test item #1 


[R] is equal to the value found in the ARRAY D at location 1 which in reality, 
is test item #1, or the first test item displayed on the screen for the individual 
to evaluate. If the value of D(1) is equal to 1, then we know the individual 
checked test item #1 with a "Y". It also increases the value of [R] raw score for 
the first factor scale by 1. 

If the value stored in D(1) = 0, this indicate, the individual had checked test 
item #1 with “М”. The value of [R] in this case does not increase: 


В = R + (А) 

R = 0 + D(1) 1- specific test item #1 
R=0+0 0- value of specific test item #1 
R= 0 


Once the total number of indicative data statement test items [JJ = 25] has 
been processed, LINE 590 checks to see if there are any contraindicative data 
statements test items to be calculated for the first factor scale. If there are 
contraindicative data statement test items [KK]. 


LINES 600-630 will read the data statement test items and subtract them from 
the raw score [R] already calculated for this factor scale. When this is 
completed, [R] is passed on for corrections and conversion. 


LINES 640-700 

Since the proper conversion scale has already been determined and 
opened, 2 variables appropriate to converting the raw score of the particular 
group are pulled out. Raw score mean [RSM] and standard deviation [SD] are 
pulled from the disc. The raw score [R] is then converted so the influence of 
the number of test items checked [checked] is no longer an influence in the 
final score. 

The name of the factor scale is read [data$] from the data statements (in 
this case FIRST SCALE.) and this along with the [T], [Z], and [R] values are 
stored in the individual’s file. 


LINE 690 clears the values of [R], [T], and [Z] and the program returns from this 
subroutine to LINE 510. 


LINE 520 indicates the total number of indicative data test item statements 
[JJ = 19] to be read, and the number of contraindicative data statements test 
items [KK = 0] (none in this case) for the next factor scale. 

The program repeats the procedure of calculating the raw score [R], [T], and 
[Z] scores for the second factor scale and returns to LINE 540 when 
completed. If there were more factor scales to be calculated, their [JJ] and 
[KK] values would be placed next. 

Since this demonstration only has 2 factor scales (FIRST SCALE and 
SECOND SCALE), the program then closes all open files, turns the screen 
back on, and ends the program. 
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BUILD YOUR ATARI 
A TABLE 


by Steven Berg, Philipine Islands 


My Atari 800 had been Sitting on my coffee table for far too long. It was time for 
a new home with a reasonable price. One can build this table for the Atari and ac- 
cesories with one sheet of 3/4" plywood and little else. 

Begin by cutting the plywood into the sizes shown in figure 2. Glue the 20" 
length of F1 to the 20" length of F2. Allow to dry for 24 hours. 1 will describe the 
construction as if you are facing the table as shown in figure 1. 

If you want the rear of piece B to be flush with sides A then reduce its width 
from 231 to 2234 inches. If you һауе an МХ-80 size printer, then cut the hole for 
the paper beginning 2" from the front and 4" from the right side of piece B. Cut 
the hole 1" in width and extend it to the left 12" so as to make a 1x12 inch slot. 
Move 3” to the left of the left edge of the paper slot and cut a second hole 2" from 
the front 1" in width and extend it to the left 3". The second hole is for your elec- 
trical connections. 

If you have an MX-100 size printer, shorten side A (right) by 6" so that side A 
(right) will be flush with piece B and begin the paper slot described above 2" from 
the right edge of piece B instead of 4" and extend it 14". 

Nail and glue piece C to B and then nail sides A to B & C. Cut a hole for the 
power cord on the lower front of piece D. Nail and glue side E to piece D. Be sure 
not to do the reverse (nail D to E) or you will not have enough room to stack two 
disc drives on the shelf formed by the two pieces. 

Nail and glue D & E to C, B and A (right). Cut 1/4" from the height of piece G (to 
make it 514”). Nail and glue piece F (F1 & F2) to piece G making sure there will be 
a 2" gap between G and C when it is attached on the table. Nail and glue piece F,G 
to pieces A & C (F only) and B (G only). 

Cut a 34 by 34 inch groove in two 2312 inch long 2 x 2's. Place the bottoms of 
the side A's in the grooves and nail the 2 x 2's to the bottoms of the sides. Drill 
the appropriate hole for your casters in the 2 x 2's and install the casters. 

| used a М x 34 veneer for the plywood edges. An alternative is wood veneer 
tape. Recess ail the furniture nail heads with a punch and fill all the holes with 
wood putty. Sand the table. Stain as desired and rub it with tung oil. | used 1%” 
furniture nails, brads for the veneer and six 2" furniture nails to attach the 2 x 2's. 
You may want to use one of your extra pieces of plywood to Separate the com- 
puter paper on the shelf from the electrical power supplies behind the disc drive 
which sits on the left side of the shelf. І placed the power supplies for my 800 and 
my 850 interface below the shelf for my monitor and between piece C and my 800. 
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CASTLE НЕХАСОМ 


Castle Hexagon uses Mode 4 graphics. Notice in particular the detail of 
the bricks. If you type the program in be sure to notice the characters in 
strings in lines 124-170 are really control characters. You should press CTRL 
and the appropriate letter when typing these lines. 

If you try to figure out how the program works, it might help to know the 
passage numbers between rooms can be found by Summing the room 
numbers. The passages blocked are found in line 212. Passage #23 between 
rooms -- 20 and ЯЗ is blocked and is opened when a match is made in room 
+3 (1st char. represent 0). The additional passages in line 216 are always 
blocked. 

The sound routine is in VBI and as such is separate from the Basic 
program. If you make a match and the tune starts playing, you can continue 
on while the music plays (interrupted if you go to another room). The routine 
is slightly different from the one in "Vultures." It uses pure notes and has a 
pause between notes. The pause length is controlled by a POKE to 1779. 

The ending routine cycles through various Mode 4 characters. If you want 
to see it without playing the game, insert: 305 GOTO 600. 

— Stan Ockers 


SCRAMBLED EGGS 


Instructions: You and your shipmates are marooned on an island which is 
nothing but rock. The only food available is seagull eggs. 

The seagulls are too scared to land as you might take to them so they lay 
their eggs while still flying around in the clouds. 

You must try to catch the eggs without breaking them. Breaking 12 will end 
the game. 
Program Description: Lines 1-6 define all strings for the shape of the man, the 
eggs, and the broken eggs for his head. 
Lines 10-55 set up the pointer for the string used for PM Graphics. 
Lines 56-101 put up the display and game name used in the display mode. 
Lines 102-195 initialize and set up the player missile graphics, colour and 
width registers. They also put the players and missiles in their original 
positions. 
Lines 197-199 set up the varialbes to their starting values and the program is 
ready to start. 
Lines 200-299 contain the main program loop. In this loop resides most of the 
main functions such as direction control and movement of the eggs. 
Lines 300-304 randomly choose the missile in which the next egg appears. 
Lines 310-343 are used to draw the broken eggs in GR.7 on the ground. Also 
the broken egg sound is produced here. 
Lines 350-360 print the score and check to see if "game over" has been 
reached. 
Lines 361-380 contain the дате over routine and the timing for the automated 
display routine. 
Lines 990-999 are used to clear the PM area and draw the Scenery for the 
game. 
— Sydney Brown 
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Another fine game from Australia-but 
look out for Lines 6,310,340 ,368,and 
700-they have graphic charactors 

Use the REM chr$ #'s to enter 
the unprintable charactors for the 
machine language subroutes 
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x68 COLOR 3:ҒОН W-66 TO 79: PLOT @,W: OR 
AHTO 159,H:HEHMT HW: FOR HW-20 TO 9D STEP 
LOSES CH, WED) UPPROP NEAT Ы 


7880 ғі5-"444 uIpZÉIUaMSWUIEISIUASSR EIE 


365% nE neen: FAS" 


0 REM ACE NEWSLETTER 3662 VINE MAPLE E 
UGENE OR 97405:100К FOR GRAPHIC CHARAC 
TORS ON LINES 6,310,340, 348, 700 

1 7 ")":HIz0:REM by Sidney Brown 

5 DIM P$(1),M$(37) ,B$(5) , Y$(3) ,U$(7) ,E 
1$(2) ,E2$(2) ,E3$(2) ,E4$(2) ,Z$(073) ,X$12 
) 


6 M$=" ( ($ 44(CCCCCCCS $$$ $988 £. " 
Все YS=" ( ":W$="B 12 ":Е1$= 
н ngaga" "ЕЗ а" QO" -Eqg=" " 


7 REM M$=chr$# 24,(,24,5,%,189,25,153 

,855,255,127,44((<<Х,0,((Х98%%%%8%%ғ 23 

1:Y$=chr$# 24,¢,12 

8 REM W$=chr$# B 247 255,254,722 :Е1$=с 

hr$$ 3,3:E2$=chr$# 12,12:E4$=chr$# 192 

,192 

10 VX=PEEK(134)+2546PEEK (135) : UX=PEEK ( 

140) +256ЖРЕЕК (141) 

50 GRAPHICS 2:POKE 712,8:POKE 708,254: 

POKE 53248,0:POKE 53249,0:POKE 53250,0 

:POKE 53251,0:POKE 53252,0:POKE 53253, 

0 

55 POKE 53254,0:РОКЕ 53255,0:7 #6;" 5 

CRAMBLED EGGS" 

60 FOR W=1 TO 40:7 #6;"@@@@"; :МЕХТ W 

64 7 :7 " PRESS START BUTTON TO START 

THE GAME"; 

90 POKE 53279,0 

95 IF PEEK(5327914»?6 AND PEEK(77)414 T 

HEN 95 

100 GRAPHICS 7:POKE 82,0:POKE 559 46:Р 

ОКЕ 758,1: 7 " SCRAMBLED EGGS 
ЕР 9“ 

101 ? " USE STICK 1 AND MOVE MAN TO СА 

TCH EGGS MISSING 12 EGGS ENDS TH 

E GAME"; 

102 POKE 704,40:POKE 705,254:POKE 706, 

14:POKE 707 ,202:POKE 712,2 

104 POKE 708,14:POKE 709 ,254:POKE 710, 

34:POKE 711,14:POKE 623,17 

106 РХ-РЕЕК(106)-24:РОКЕ 54279 PX: POKE 
53277,3 

108 POKE 53256,3:РОКЕ 53257 ,0:РОКЕ 532 

58,0:POKE 53259,1:POKE 53200 ,85:РОКЕ 5 

3255,1 

110 POKE 53249,1:POKE 53250,1:POKE 532 

52,1:POKE 53253,1:POKE 53254,1 

120 OX=254%PX+384-UX : BX=INT(OX/254) : АХ 

-0Х-256ЖВХ 

121 POKE VX+2,AX:POKE UXt3,BX:POKE UXt 

4,113:POKE UXt5,2:POKE VX+6,113:POKE у 

X17,2 


“22% 


190 GOSUB 990 

195 P$(330,332)-Y$:P$1459, 465]-U$ : P$ (2 
04,208)-B$:P$1588, 624) -M$ 

197 Н1=100:Н2=160:НЭ=110:Н4=120:РОКЕ 5 
9252 ,Ні:РОКЕ 53253,H2:POKE 53254,H3:PO 
КЕ 53255 НА:11=1:12=-1:19=1:14=-1 

198 M=142:C=0:N=20:EC=0:EM=0:GOSUB 350 
199 POKE 53251 М:РОКЕ 53248 ,134 

200 POKE 53278,0 

201 IF PEEK(53279)-6 THEN 100 

210 ST-STICK(0):IF (ST=9 OR 5T=10 OR 5 
T=11) AND M)50 THEN М-М-4 

211 IF (ST=5 OR 57-6 OR 57-7) AND М‹19 
0 THEN М=М+4 

212 POKE 53248,M-8:POKE 53251,M 

240 IF EC/S=INT(EC/5) AND АС=1 THEN N= 
N-1:AC=0:IF N(5 THEN N=5 

241 IF EC/5O INT(EC/5) THEN AC=1 

250 С=С+1:1Е СУМ THEN С=0:С0508 300:P$ 
(19, 20)=X$ 

251 Z$-P$(17,88) :P$(19,90)=Z$ 

252 Н1=Н1+11:РОКЕ 53252,H1:IF Н1(55 TH 
EN 11=1 

253 IF H1)195 THEN 11--1:ҒОВ Ш-22 TO 0 
STEP -2:SOUND 0,U,10,10:NEXT W 

254 Н2=Н2+Т2:РОКЕ 53253,Н2:ІҒ Н2‹65 TH 
EN I2-1 

255 ST-STICK(0):IF (ST=9 OR 57-10 OR 5 
T=11) АМ) M)50 THEN М=М-4 

256 IF (5T-5 OR 57-6 OR 57-7) AND М‹19 
0 THEN M=M+4 

257 POKE 53248,M-8:POKE 53251,M 

260 IF H2)155 THEN I2=-1:FOR W=22 TO 0 
STEP -2:SOUND 0,,10,10:NEXT W 

261 H3-H3413:POKE 53254,H3:IF H3(85 TH 

ЕН I3=1:FOR W=22 TO 0 STEP -2:SOUND 0, 

W,10,10:NEXT W 

262 IF H3)125 THEN ІЗ--1:ҒОВ М=22 TO 0 
STEP -2:50UND 0,U,10,10:NEXT Ы 

263 НА=НА+ТА:РОКЕ 53255,H4:IF H4(75 TH 

EN I4-1:FOR W=22 TO 0 STEP -2:50UND 0, 

М,10,10:МЕХТ W 

264 IF H4)165 THEN 14=-1:FOR W=22 TO 0 
STEP -2:50UND 0,U,10,10:NEXT W 

245 PS=PEEK(59248) : P&-PEEK (53249) : P7=P 

EEK (532501 : PR-PEEK (53251) 

266 IF P5)3 THEN GOSUB 330 

267 IF P6)3 THEN COSUB 332 

248 IF P7)3 THEN GOSUB 334 

849 IF P8)3 THEN GOSUB 336 

270 P1=PEEK (53256) : P2=PEEK (53257) :P3-P 

ЕЕК(53258) : P4=PEEK (53259) 
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271 IF Р1=8 OR P1-9 THEN GOSUB 390 

272 IF ро=8 OR P2-9 THEN GOSUB 390 

273 IF P3-8 OR P3-9 THEN GOSUB 390 

274 IF P4-8 ОН P4-9 THEN GOSUB 390 

275 IF P1-1 THEN GOSUB 380 

876 IF Pe-i THEN GOSUB 380 

877 YF РЗ=1 THEN GOSUB 380 

278 IF P4-1 THEN GOSUB 380 

299 СОТО 200 

300 RzINT(RND(O)X4t1):0N R COTO 301,30 
2,303,304 

301 X$-E4$:RETURN 

302 X$-E3$:RETURN 

303 X$-E1$:RETURN 

304 X$=E2$ : RETURN 

310 P$(75,84)z"":POKE 53278,0 

311 REM Р%(75,84)-10 HEARTS(chr$$ 0:5) 
319 RETURN 

330 A=H1-52:COTO 339 

332 А-Н2-52:6070 339 

334 &-H3-52:60TO 339 

336 А-Н4-52:6070 339 

339 B-RND(O)X10456 

340 SOUND 0,6,8,14:P$(80,90)z''" : COLOR 
1:PLOT At2,B+1:DRAWTO А+8 ,В+1:Р.0Т Ati 
,Bte: DRAWTO At? E42 . 

341 REM Р%(80,90)-10 hearts 

342 PLOT A,B+3:DRAWTO At6,Bt3:PLOT A12 
,B+4:DRAWTO At4 B+4:COLOR 2:PLOT At4,B 
:DRAUTO At4,B:PLOT А+3, В+1 

343 DRAWTO At6,Bti:PLOT А+3.В+о : DRAWTO 
&t5,Bt2: SOUND 0,0,0,0: EM-EMT1:POKE 53 
278,0:60Т0 350 

350 SOUND 0,0,0,0:7 "3":? :7 :? “EGGS 
SAVED--EGGS 105Т--------- HI SCORE 

MERECEM IHE 

355 IF ЕМ›11 THEN 340 

359 POKE 77,0:RETURN 

360 IF ЕСЭНІ THEN HI-EC:GOTO 350 
3617“ GAME ОЧЕВ ":7 "РВЕ 
55 START BUTTON TO RESTART GAME"; 

365 POKE 53248,134:POKE 53251,142:POKE 
53079,0 

366 IF РЕЕК(77)27 THEN 50 

367 IF РЕЕК(53279)526 THEN 366 

368 COLOR 3:FOR W=66 TO 79:PLOT 0,W:DR 

AUTO 159,W:NEXT W:FOR W=20 TO 90 STEP 
10:P$(W,Wt9)z"(10 hearts)": NEXT Ы 

349 GOTO 195 

380 EC=EC+1:SOUND 0,21,10,10:GO05UB 350 
:GOTO 310 

390 SOUND 0,2,8,14:FOR W-1 TO 20:NEXT 

W: POKE |53249 M+4:POKE 53250, Mt4 

391 FOR W=180 TO 246 STEP 3:SOUND 0,W, 
18,4:NEXT uU 

399 SOUND 0,0,0,0:FOR W-1 TO 300:NEXT 

W:POKE 53249,1:POKE 53230,1:EM-EMtl:GO 
SUB 350:GOTO 310 

700 E1$-" ":Е2$=" ":ЕЭФш" ye a 

З%=" " -E4$="@@@@" :Е4$=" н 

701 REM Ei$-chr$ #4,4,4,4:Fes=chr$é 0, 
12,12,0:E3$=chr$ $16,16,16,16:F3$zchr$ 
$0 O:F4$-chr$ %0,128,128,0 

990 FOR W=PXk254+384 TO PX*256+1023: PO 

КЕ W,0:NEXT W 

991 COLOR 3:PLOT 0,65:POSITION 0,79:Р0 

KE 765,3:ХІ0 18,$6,0,0,"5:" 

992 COLOR 1:PLOT 14,0:DRAWTO 100,0:Р05 

ITION 0,7:POKE 765,1:ХІ0 18,#46,0.0,"5: 

"IPLOT 21,8:DRAWTO 77,8 

993 PLOT 100,8:DRAWTO 121,8:PLOT 35,9: 

DRAWTO 49,9:PLOT 135,0:DRAWTO 159,0 

399 RETURN 
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i REM OOK RRR KR ЖЖ АЖЖ ЖҰЖ ЖЖЖ 


2 REM ЖЖ АСЕ NEWSLETTER ЖЖ 
3 РЕМ ЖЖ 3662 VINE MAPLE DR xx 
4 REM ЖЖ EUGENE, ОВ 97405 xx 
3 REM ЖЖ DEC/JAN ISSUE 82/83 ЖЖ 
6 REM ЖЖ $10 YR Xx 


7 REM OOOO OOOO OOO ORK 

10 REM ЖХЖХХХЖХХХЖЖЯ ЖЖЖ ЖЖЖ 

20 REM ЖЖ CASTLE HEXAGON ЖЖ 

30 REM жж 5.0. 10/82 ЭЖ 

40 REM ЖОККО ЮКО ЖЖЖ 

45 GRAPHICS 18:POSITION 6,4:7 %6; "Саб 

LE": POSITION 6,6:7 #6; " HexAgün" 

49 REM Ж Sound generation in UBI, Data 
in page 6 X 

50 DIM VBI$(75): RESTORE 52:FOR J=1 TO 

75: READ A: YBI$(J,J)=CHR$(A):NEXT J 

52 DATA 174,252 6,240, 7,173,244, 6,240 
,82,206.244 6,208.57 

54 DATA 189,0,6,141,0,210,10,234,234 

56 DATA 141,2,210,232,189,0,6,240,30,1 

41,248,6,232,142,252,6,208 30,208 248, 

5,16,25,169,0 

58 БАТА 141,0,210,141,2,210,173,243,6, 
141,244,5,208,9,141,252,6,141,0,210,14 
1,2,210,76,98,828 

60 RESTORE 42:FOR Ј=1536 TO 1749:READ 

A:POKE J,A:NEXT J 

ёа DATA 104,160,9,162.0,1469,7,76, 92,22 

3 

64 DATA 81,20,68,40,60,20,53,30,50,10, 

53,20,60,40,72,20,91,30,81,10,73,20,68 
,40,81,20,81,30,85,10,81,20,72,40 

65 DATA 85 ,20,108,40.81,020, 8, 40,60,20 
,23,30,50,19,53,20,60,40,72,20,91,30,8 
1,10.72,80,48,30,72,10,81,20,85,30 

66 DATA 96,10,91,20,81,40,81,20,0,0,53 
,40,60,20,53,00,81,20,81,20,91,20,81,2 
0,68,20,72,20,85,20,01,60,81,26 

47 DATA 53,80.53,20,81,20,48,20 53,20, 
40,200,58,20,60,80,60,20,53,20,50,40,50 
,290,53,20,60.40,68.20,60,20,53,20 

48 DATA 53,20,60,20,68,20,81,60,81,20, 
53,80,53,20,81,20,68,20,53,20,450,20,72 
,20,68,80,0,0,100,5,80,5,60,5,40,5 

^9 DATA 20,5,0,9,25,5,40,5,50,5,80, 5,1 
00,5,9,0,100,2,0,2,140,2 ,0,2,100,2,0,2 
,140,2,0,0 

80 A=ADR(VBI$) : B=INT(A/256) :С=А-255Ж%В: 

POKE 1538,C:POKE 1540,B:POKE 53761 ,174 
-POKE 53763 ,170:POKE 1779,5 

82 A-USR(1336):POKE 1788,88 

90 GOSUB 1000 


100 DIM NXTRM$(69) ,BRD$(48) ,BLD$(48) ,L 
D$148) ,RD$(48) , P$(48) СС%(20) ,C0$ (20) , 
T$(43) ,PD$18) ,RN$(23),H$(23) ,U$(23) 
109 REM Ж H$-Room"assoc. with chest co 
ntents, CB$-Color of background Ж 

110 DIM 0BJ$(23) ,0$(322) , R$1345) , CRYS( 
14) ,CB$(231 ,M$(15) ,F$(37) : RN$(23)z" ": 
RESTORE 112:FOR J-1 TO 23:READ A 

111 H$(J,JIZCHR$(A):NEXT. J:FOR J=1 TO 
83:READ A:CB$(J) =СНЕФ (А) : NEXT J 

118 DATA 3,22,12,15,18,16,20,19,1,2,4, 
6,9.10,19,14,8,17,11, 5; 205 7, U 

113 DATA 18,66,84,100,34,110,0,180,98, 
178,4,16,174,178,52,20,6,0,254,210,64, 
242,50 

114 REM Ж Randomize room"names Ж 

115 FOR J-1 TO 23 

116 R:INT(RND(O)K23) :FOR К=1 TO J:IF R 
=ASC(RNS(K)} THEN 116 

118 NEXT K:RN${J,J)=CHRS$(R):NEXT J: K=0 
119 K=K+1:IF ASC(NS(UO (217 THEN 119 
120 НМ {К K)=RN${18,18):RN$(18,18)=CHR 
$(17) 

121 REM Ж Put objects in proper place 
Ж 

122 FOR J=1 TO 23:K-45CiH$(J)) :OBJ$(J, 
J)zBN$ (CF1,K*1):NEXT J: CRY=ASC(OBU$(22 
1) :0BJ$(22, 22) ZCHR$ (17) 

123 REM ЖЖ ALL STRING CHARACTERS IN LI 
NES 124-170 ARE CTRL (EXCEPT THE X'S А 
ND BLANKS) ЖЖ 

124 NXTRM$="APD EBAFCGTBHE , FADGBECFKLTI 
DHMJINKGJOHSMNILOJMNUKSR , QQQPUTPLUUCRU 
RSUOT" 

125 BRD$="@P 008р00000000000000000000 
000000000000NMOD NM" 

127 BLD$-" UUUUTTTTTTTTTTTTTTTTTTTTTT 
TTTTTTTTTTTTTTRSRS " 

130 LD$="" ЕҒЕҒААААААААААААААААААААААА 
AAABAAAAAAABBCDCD " 

140 RD$-"IJ AAITJAAAAAARAARAAAAAAAAAAR 


`АААААААААААСНВВ GH” 


150 СС$=" WZZZLXXXXAXXXXK" 

140 CO$="XBBBYWZZZLXXXXAXXXXK" 

170 PD$="EFAAAAT J” 

179 REM * Room names X 

180 Q$="$¢¢MDCHEXUQS444ZRACHOSUWDNHEES 
HUTXPHG$RLO#JROGHQ4JREOHW##_URG#F DOGUR 
Q#40DF HESLOORZV#$UDZKLGHEZKL SE" 

181 Q$(99)="##F KLQDSGRO0S###5XU50H#URE 
H###PDJULF$ZD0CG$4L URG#K RUVHUKRHEFF KDLOF 
PDLOS#F RSSHUSNHWWOHE" 


182 0$(183)-'4HUSNJODUUEHHEULOYHUSEULG 

OH#F RORUHGSEDOOUSZRRGSFURUVERZSERRNERT 

$NORZQSHETXLOOSSHOSHEEUDUUSEDODOFHE" 
183 Q$(881)-'4FDQGOHUWLFNAHHEEDJSRISUDO 

VEFHESUDNHUEUX EE" 

185 R$z'£$FDUWOHSFUNSUdHEYDPSLUHXUTODLUS 
SULOFHUUXUSEDUKAEGLOLGJEKDOOSHHZLWFKxX 
VSGHGHETXHHOXUSEHGURRP" 

186 R$(91)2'"$GDUNSCXGUHRQSHKHLUXUSGXUU 

HUNENLQUXUSFKDPEHUUURUFHUHUXUSGHQSEODF 

NUPLWKEVKRS" 

187 R$(166)="$NOL UKWKVEURRPSSF DUWOHENL 

WF KHQ$#ZDWF KHRZHUSHHHEKRUUHSUUDEOH3HHEMH 
UWHUXVSURRP#4F DVWOHEDUPRU\E" 

188 R$(256)z HHHHEHHHREHHHHHEDUVOHEOLE 

UDUNEDOFKHPLUWXUSODESFDUWOHSF KDSHOTHHHE 
VWRUHURRP###PRONKVETXDUWHUY" | 

200 Т$(1)=СНН$(0):Т1%(43)=СНВ$%{0):Т%{2) 

zT$:FLAG-0 

209 REM Ж U$-Passage % blocked at cert 
ain room X 

210 RESTORE 212:FOR J-1 TO 23:READ А) 
$(J) -CHR$(A) :NEXT J 

212 DATA 0,0,0,23,0,0,0,0,12,0,0,18,31 
,0,0,0,16,0,39,35,42,0,37 

813 REM Ж Set up passages blocked Ж 

214 FOR J-1 TO 23:А-А5С(06 CI) ) : IF A=0 

THEN NEXT J 

216 T$(A,A)-CHR$(1):NEXT J:T$(38,38)-C 

HR$(1):T$(40, 40) ZCHR$(11) : T$(43, 43) -CHR 

$11) 

300 7:7" PRESS START"; 

302 IF PEEK(53279) O6 THEN 302 

304 7 CHR$(125):G05UB 1100:COSUB 1230 

306. POSITION 6,0:7 "carrying:":POSITIO 

М 2,19:7 "this is room $ ":CUX=19:CUY= 
11 

310 RM-INT(RND(01X8) : PRRMzASC (NXTRM$ (R 

MX3TINT(ND(OO)XST1))) : A2RMEPRRM: IF ASC 
(T${A))>0 THEN 310 

350 R1I=ASC(NXTRM$(RMK341)) : RE-ASC (NXTR 

M$(RMK3+2) ) : RK32ASC(NXTRMS ( RMK343) } 

356 IF Ri=PRRM THEN RTRM=R2:LTRM=R3 

357 IF Re=PRRM THEN RTRM-R3:LTRM-Ri 

358 IF R3-PRRM THEN RTRM-R1:LTRH-R2 

359 POKE 1779,1:РОКЕ 1788,198 

360 POKE 559,0:РОКЕ 712,А5С1СВ%(А5С(РМ 

$(RHT1))1)):POKE 710,48:POKE 77,0 

361 POSITION 1,1:7 "TO ROOM # ";LTRM;" 
":POSITION 26,1:7 "TO ROOM # ";RTRM;" 

362 POSITION 14,18:7 "TO ROOM # ";PRRM 
;" ":POSITION 17,19:7 RM;" " 

364 LT=ASC(T$(RM+LTRM) ) : RTZASCC(T$ (ER 

TRH)):GO0SUB 1250 

366 IF LT?0 THEN GOSUB 1215:COTO 370 

368 IF LT-0 THEN GOSUB 1210 

370 IF RT?0 THEN GOSUB 1225:GO0TO 382 

372 IF RT=0 THEN GOSUB 1220 

382 POKE 559, 34:X=23:¥=19:G=15%ASC (RNS 

(РИ+1 ) HH :М$=0% (0 ,0+14) : 50508 1500:Р05 

ITION 22,19:7 " "; | 

383 IF OBJS(RMt1 , RM+1)=RN$(RM+1, ВМ+1) 

THEN POSITION 22,19:7 СНВҘ (170) 

384 X=24: Ү=0:р=14ЖСВҮ+1 :M$=0$ (P, P+13) : 

GOSUB 1500 

390 POKE 712,45ClCB$ (ASCCRNS URMTT ) 7+1) 

):РОКЕ 710,48:POKE 77,0 

392 POKE 209,18:POKE 208,14 

400 Sz5TICK(0):IF STRIG{0)=0 THEN 410 

402 IF 5-14 THEN CUX=19:CUY=9 

404 IF 5-13 THEN CUX=19:CUY=16 

406 IF 5-7 THEN CUX=33:CUY=11 

407 IF 5-11 THEN CUX-6:CUY-11 

410 LOCATE CUX,CUY,2:POSITION CUX,CUY: 

? "X"; : TR=STRIG(0) 





430 IF TR=0 AND CUY-16 THEN TEMP=RM: RM 
=PRRM: PRRM=TEMP : GOTO 350 
440 IF TR=0 AND LT=0 AND CUX=6 THEN LT 
=RM+LTRM: PRRM=RM: ВМ=1 ТЕМ : СОТО 350 
450 IF ТР-0 AND RT=0 АМО CUX-33 THEN R 
T=RM+RTRM: PRRM=RM: ВМ=АТЕМ : СОТО 350 
460 IF ТР-0 AND CUY=9 THEN GOSUB 2000 
470 IF FLAG=1 THEN FLAG=0:GOTO 360 
480 IF FLAG=3 THEN POKE 1788,10:GOTO 6 
00 
490 POSITION CUX,CUY:? CHR${Z); 
500 GOTO 400 
600 7 CHR${125) :POSITION 1,0:7 "YOU FO 
UND THE BOOK congratulations!" 
802 POSITION 2,19:7 "start to repeat 
select for new game"; 
808 FOR Ј=0 TO 123:IF 2227 AND J(32 TH 
EN NEXT J 
610 F$(1)=CHR$(J) :F$(37) ZCHR$ (J): F${2) 
=F$:FOR K=3 TO 16:POSITION 1,K:? F$; 
612 A-PEEK(53279]:IF A=6 THEN GRAPHICS 
0:POKE 756,START/256:60T0 122 
614 IF А=5 THEN GRAPHICS 0:POKE 756,5T 
ART/256:7 :7 "Just a sec ...":GOTO 114 
616 NEXT К:МЕХТ J:GOTO 608 
999 REM Ж Change character set Ж 
1000 DIM ZZ$(32):RESTORE 1010:FOR 1-1 
TO 32:READ A:ZZ$(I)-CHR$(A) :NEXT I 
1010 DATA 104,104,133,204,104,133,203, 
104,133,206,104,133,205,162,4,160,0 
1012 DATA 177 ,203,145,205,136,208, 249, 
230,204,230,204,202,208,240,96 
1014 POKE 106,PEEK(106)-5:GRAPHICS 0:6 
OSUB 1800:5TART-(PEEK (106) +1) ¥256 : POKE 
756, START /256:POKE 752,1 
1016 A=USR(ADR(ZZ$) 57344, START) : RESTO 
` RE 1020:FOR I-START4520 TO START+727:R 
EAD A:POKE I,A:NEXT I 
1018 RETURN 
1020 DATA 170,170,170,170,170,170,170, 
170,255 ,255 ,255 ,255 ,255 ,255 ,255,255,25 
5,255,255 ,255,253,244,208,64 
1030 DATA 253,244,208,64,0,0,0,0,0,0,0 
,0,1,6,26,106,1,6,26,106,170,170,170,1 
70 
1040 DATA 127,31,7,1,0,0,0,0,255,255,2 
55,255,127,31,7,1,64,144,164,149,170,1 
70,170,170 
1050 DATA 0,0,0,0,64,144,164,169,170,1 
70,168,168,160,160,128,128,170,171,170 
,174,170,186,170,234 
1060 DATA 191,239,251,254,190,46,10,2, 
191,47,11,2,0,0,0,0,191,239,251,254,19 
0,238,250 254 
1070 DATA 0,0,0,0,128,224,248,254,128, 
824,248,054,190,238,250,254,254,251,23 
9,191,190 , 184,160,128 
1080 DATA 254,248 ,224,128,0,0,0,0,254, 
251,299,191, 190, 187,175,191,0,0,0,0,2, 
11,47 ,191 | 
1090 DATA 2,11,47,191,190,187,175,191, 
2,2,10,10,42,42,170,170,255,127,63,31, 
15,7,3,1 
1092 DATA 64,192,208 240 244,252 ,253,2 
55,170,170,170,170,170,170,170,170 
1099 REM X Change display list Ж 
1100 DL-PEEK(560)4256XPEEK (561) : POKE D 
L+3,70:POKE DL4+6,7:POKE DLt25,6:POKE D 
Lt86,7 
1110 FOR J=0 TO 3:POKE DLt274J,PEEK(DL 
£4294J) :NEXT J:FOR Ј=8 TO 23:POKE М), 
4:NEXT J:RETURN 
1199 REM Ж Draw figures using strings 
x 
1200 FOR J=0 TO H:LzWXJ:POSITION X,YtJ 
:1 PSULTL,LTW) : NEXT. J: RETURN 
1210 P$=LD$:H=11:W=4:X=4: Ү=4: С050В 120 
0: RETURN 
1215 P$=BLD$:H=11 :W=4:X=4:Y=4:GOSUB 12 
00: RETURN 
1220 P$-RD$:H-11:W-4:X-32:Y-4:GOSUB 12 
00: RETURN 


1225 P$-BRD$:H-11:W24:X-32:Y-4:GOSUB 1 

200 : RETURN 

1230 P$-CC$:H-3:Wz5:X-17:Y-7:G0SUB 120 

0: RETURN 

1240 P$=CO$ :H=3:W=5:X=17:Y=7:GOSUB 120 

0: RETURN 

1250 P$-PD$:Hz0:4-8:X-16:Y-16:GOSUB 12 
00: RETURN 

1500 POSITION X,Y:FOR J-1 TO LEN(M$) :? 
CHR$(ASC(HS(J))-3) ; :FOR К=1 TO 3:NEXT 
K:NEXT J:RETURN 

1800 7 "Castle Hexagon gets its name f 
гов":7 "its six sided rooms with doors 
at" 

1810 7 "alternate walls. Rumor says a 
п":7 "ancient manuscript of wisdom"cal 
led" 

1820 7 "the 'Book of Known' lies hidde 
n in":? “one of the castle's many room 
" r 
1830 7 "Your job is to find this treas 
ure.":7 " Each room has a chest cont 
aining" 

1840 7 "an item associated with anothe 
r":7 "room. You can only carry one ii 
ев" 

1850 ? "at а time. Position the curso 
r оп":7 "the chest and push 'fire'. М 
any" 

1860 ? "doors have been bricked over b 
ut":7 "some will magically open when t 
he" 

1870 7 "chest contains the proper item 
,":7 "Position the cursor on the desir 
ed" 

1872 ? "door and push 'fire' to move b 
etween":? "rooms. Тһе “вай! in the mi 
ddle" 

1874 7 "represents the room you just C 
ame":7 “from. Just remember you are f 


acing" 

1876 7 "into the room, (the map should 
help).":?7 " А final warning ... it's 
not" 


1878 7 "easy and if you re-run the pro 
gram":7 "all the rooms get switched ar 
pound!" ; 

1890 RETURN 

1999 REM Ж Exchange chest contents Ж 
2000 GOSUB 1240: TEMP=CRY : K-A5Ct OBJS (ВМ 
+1)) : P=14%K+1 : CRY=K 

2010 OBUS(RM+1 , RM+1)=CHRS{ TEMP) : X24: Y 
=0:M$=0$(P P+13):GOSUB 1500:POKE 1788, 
174:FOR J=1 TO 100:NEXT J 

2020 POKE 1788,186:GOSUB 1230 

2025 IF CRY=17 THEN FLAG=3 

2030 IF TEMP=ASC(RNS(RM+1)) THEN GOSUB 
2500 

2040 RETURN 

2499 REM X Clear passage * 

2500 FOR J-1 TO 100:NEXT J:POKE 1788,1 
0: FLAG=0:A=ASC(US(RM+1)):IF A=0 THEN R 
ETURN 

2510 T$(A,A)=CHR$(0) :FLAG=1 : RETURN 


MUSIC SOURCE 
LISTINGS 


10 ; SOUND IN VBI ROUTINE 
20 &UDCi z"$D201 ; (53761) 
30 AUDF1 ="$D200 ; (53760) 
40 REST ="$46F3 ; (1779) 

50 RESTCNT ="$6F4 ; (17801 
60 DURCNT z"$6F8 ; (1784) 
70 STRPOS ="$4FC ;(1788) 
80 AREA ="$600 ; (1536) 
90 Ж-%0000 

0100 TUNE1 LDX STRPOS ; Position is in 
dex 


о 


0110 BEG TUNE? ; Not active 

0120 LDA RESTCNT ; Pause active? 
0130 BEG TONE ; No 

0140 DEC RESTCNT ; Yes 

0150 BNE TUNE2 ; Pause not finished 
0140 LDA AREA,X ; Frequency 

0170 STA AUDF1 ; into channel 1 
0180 ASL A; 1 octave down 

0190 NOP 

0200 NOP 

0210 STA AUDFit2 ; into channel 2 
0220 INX ; Next byte 

0230 LDA AREA,X ; Duration 

0240 BEQ FIN1  ; Quit if Dur ="0 
0250 STA DURCNT 

0260 INX ; index for next byte 

0270 STX STRPOS ; Update string pos. 
0280 BNE ТИМЕР ; Skip over 

0290 TONE DEC DURCNT ; Tone finished? 
0300 BPL ТИМЕР ; Not yet 

0310 LDA #$00 ; Shut off tones 

0320 STA AUDF1 

0330 STA AUDFit2 

0340 LDA REST ; Initialize pause 
0350 STA RESTCNT 

0360 BNE TUNEZ 

0370 FINI STA STRPOS ; 0 in String pos 


0380 STA AUDFi ; and all sound off 
0390 STA AUDFit2 
0400 TUNE2 JMP $E462 


BALLOONS FIX 


IN THE AUG/SEPT ISSUE, CHANGE THE LISTING 
OF THE BALLOONS PROGRAM: 
in Line 1600, FLAGG=0 not POKE FLAGG,9 as listed 


HES PoE 


The following program was part 
of Stan Ockers article last 
month on ‘Machine Language 
Programming. 

Sorry to have left it out 


1 REM PROGRAM FOR “MACHINE LANGUAGE PR 
OGRAMING, PART 1, NOU '82 ACE NEWSLETT 
ER 

10 REM xxXooololokoopooojoroojoor 

20 REM Жж НЕХРОКЕ ЖЖ 

30 REM ** 5.0. 9-82 ЖЖ 

40 REM ЖЮК ЖЖЖ ЖЖ 


50 REM 

100 DIM H$(16),D$(23) М5) :Н%- 012345 
4789ABCDEF" : D$z "BABCDEFGHT ! ! ! 11! ! JKLHN 
Q" 


110 OPEN #6,12,0,"S:":OPEN #1,4,0,"K:" 
-POKE 752,1 

300 7 CHR$(125);"INPUT ORIGIN IN HEX"; 
-INPUT N$:GOSUB 2010: AD=N:STRT=N: GOSUB 
1110 

390 X=10:Y=4:GOSUB 910:AD-STRT:POSITIO 

М 10,2:PRINT "STARTING ADDRESS “;5ТВТ: 

POSITION 10,22:7 "DECIMAL VALUES" 

400 GET #1,К 

410 IF К=45 AND Y)4 THEN GOSUB 910:Ү-Ү 

-2:GOSUB 910:4D-AD-8 

420 IF К=61 AND Ү(16 THEN GOSUB 910:Ү- 

Y+2:GOSUB 910:AD=AD+8 

430 IF K=42 THEN GOSUB 910:GOSUB 510 

440 IF K=43 THEN GOSUB 910:GOSUB 530 

450 IF ((K)47) AND (K(58)) OR (1064) 

AND (K(71)) THEN GOSUB 810 

460 IF K=27 THEN GOTO 300 

470 IF K=82 THEN A=USRISTRT) :GOTO 300 


- 500 POSITION 20,20:7 PEEK(AD);" ":Р05 


ITION 10,20:7 AD: GOTO 400 


-"-----БОС:ОСС 


SPELL by 
Ruth Ellsworth 


Listing in PILOT 


J'MEANS ESC CTRL CLEAR 


10 R: SPELLING REVIEW 

20 R:by Ruth Ellsworth 

30 R:ACE NEWLETTER 

40 R:36628 VINE MAPLE DRIVE 
30 R:EUGENE, OREGON 97405 

60 XSTART 

70 T:TYPE IN 5 SPELLING WORDS 
80 T: ONE AT A TIME 

90 &:$0NE 

100 А: $TUO 

110 А:$ТННЕЕ 

120 &:$FOUR 

130 A:SFIVE 

140 С:8В1373-16 
150 C:@B1374=2 
160 WRITE:S, 

170 WRITE:5, 

180 WRITE:S, 

190 URITE:5, 

800 WRITE:5, 

210 URITE:5, 

220 WRITE:5, 

230 WRITE:S, 

240 WRITE:5, 

250 PA:100 

260 WRITE:5.J 
270 C:#A=7\5 

280 Ui#A=0) : ЖОМЕ 
290 UltA=1) :XTWO 
300 Ul#A=2) : ЖТНВЕЕ 
310 Ul#A=3) : XFOUR 
329 Ut46-4) : «FIVE 
330 J:XSEC 

340 XSEC 

350 C: 482755 

360 J(#B=#A) : XSEC 
370 U(£8z0] : ЖОМЕ 
389 U(48z1) :XTUO 
390 Ul#B=2) : XTHREE 
490 U{#B=3) : XFOUR 
410 UitBz4) :XFIUE 
420 J:XTHRI 

430 XTHRI 

440 C: 80-75 

450 J(#C=#A) : XTHRI 
460 J(#C=$8) :XTHRI 
470 U(#C=6) : ЖОМЕ 
480 U(#C=1) :XTWO 
496 U($Cz2) : XTHREE 
390 U(#C=3) :XFOUR 
510 U(#C=4) :ЖҒІЧЕ 
220 .Ј: ЖҒОВ 

530 XFOR 

540 С:#)=7\5 

950 Ul#D=#A) : xFOR 
360 J(#D=#B) :XFOR 
570 J(#0=#C) : XFOR 
880 U(#D=0) : ЖОМЕ 
590 Ц4Ж0-1) : «TWO 
600 Ul#D=2) : ЖТНВЕЕ 
610 U(#D=3) : KFOUR 
420 UitD-4):XFIUE 
630 JALAST 

540 XLAST 

650 Є:#Е=7\5 

860 JEZEÀ) :XLAST 
670 Ji#E=#8) : XLAST 
680 Jt#E=8C) : xLAST 
690 J(SEZSD) : LAST 
700 UISEZ0) : ЖОМЕ 
710 U(4Ez1) : XTWO 
720 U{#E=2) : ЖТНВЕЕ 
736 U(£E-3) : KFOUR 
740 UtdE-4) :XF IUE 


$0NE 


$TWO 


S$ THREE 


$FOUR 


$FIVE 


760 GR: QUIT 

770 J:XSTART 

780 E: 

790 ЖОМЕ 

800 Р05:5,5 

810 URITE :S, $ONE 

820 А: 

830 WRITE:S,} 

840 А: 

850 М:%0МЕ 

849 Т: 

870 TY:GOOD! %0МЕ IS SPELLED %0МЕ [G00 
D! should be in inverse lettering for 
all words to make it stand out 
880 ТМ:%0МЕ IS SPELLED %0МЕ 
890 P05:5,5 

900 ШВІТЕ:5, $0NE 

910 РА:100 

920 WRITE:5,} 

930 E: 

949 XTWO 

950 Р05:5,5 

960 WRITE:5, $TWO 

970 A: 

980 WRITE:5, 3 

990 A: 

1000 М: $TWO 

1010 Т: 

1020 TY:GOOD! $TWO IS SPELLED $TWO 
1030 TN:$TUO 15 SPELLED $TWO 
1040 Р05:5,5 

1050 WRITE:5, $TWO 

1060 PA:100 

1070 WRITE:5,} 

1080 E: 

1090 XTHREE 

1100 Р05:5,5 

1110 WRITE:5, $THREE 

1120 A: 

1130 WRITE:5, 3 

1140 A: 

1150 M:STHREE 

1160 T: 

1170 TY:GOOD! $THREE IS SPELLED $THREE 
1180 TN:$THREE 15 SPELLED $THREE 
1190 P05:5,5 

1200 WRITE:5, $THREE 

1210 РА:100 

1220 WRITE:5,} 

1230 E: 

1240 XFOUR 

1850 P05:5,5 

1260 WRITE:5, $FDUP 

1870 А: 

1280 WRITE:5,3 

1290 А: 

1300 M: ФЕОШВ 

1310 T: 

1820 TY:GOOD! $FQUR 15 SPELLED $FOUR 
1330 TN:$FOUR IS SPELLED $FOUR 
1340 P05:5,5 

1350 ШВІТЕ:5, $FOUR 

1360 РА:100 

1370 URITE:5,3 

1380 E: 

1390 XFIUE 

1400 P05:5,5 

1410 WRITE:S, $FIVE 

1420 A: 

1430 WPITE:5,3 

1440 А: 

1450 М: $FIUE 

1460 T: 

1470 TY:GOOD! $FIVE IS SPELLED $FIUE 
1480 TN:$FIUE І5 SPELLED $FIUE 
1490 P05:5,5 

1500 WRITE:5, $FIVE 

1510 РА:100 

1520 WRITE:5,} 


Addressing Mo cde 


absol. 


immed. — absol;.,x 


zpage 


9D 


STA 


HEXPOKE 
by Stan Ockers 


(con't) 


510 X=X+3:AD=AD+1:IF X)31 THEN X=10:Y= 
ҮЖӘ:ІҒ Y)16 THEN Y=4:AD=5TRT 

520 GOSUB 910:RETURN 

530 X=X-3:AD=AD-1:IF X410 THEN X=31:Y= 
Ү-2:ІҒ Ү(4 THEN Y=4:X=10:AD=STRT 

540 GOSUB 910:RETURN 

800 REM XX SUBR. TO PUT NEM NUMBER IN 
MEMORY жж 

810 Ni-16X(ASCUD$ (K-47) 1-64) : POSITION 
Х,Ү:7 CHR$( ; :XeXH :GOSUB. 910 

820 GET #1,K:IF K=126 THEN GOSUB 910:X 
=X-1:GOSUB 910:GET #1,K:GOTO 810 

824 IF ((K)47) AND (K(581) OR ((1064) 
AND (K(71)) THEN 828 

826 GET #1,K:GOTO 824 

828 NE-ASCID$(K-47))-64:N-NI4N2:POKE А 
DN 

830 POSITION Х,Ү:7 CHR$(K); :X=X+2:IF X 
)82 THEN X-10:YzY42:IF Y)16 THEN Y=4:A 
D=STRT-1 

890 AD=AD+1:GOSUB 910: RETURN 

900 REM ЖЖ POS. AND 7 INV. OF CHAR ЖЖ 
910 LOCATE X,Y,Z:POSITION X,Y:? CHRS(Z 
+128) ; : RETURN 

1000 REM Xx PRINT DEC, % N IN HEX XX 
1010 M=4096:ZFLG=0:FOR Ізі TO 4:JeINT( 
N/M):IF J)0 THEN ZFLG=1 

1020 IF 1.00) OR (ZFLG=1) OR (D2) THE 
N 7 H$LJHL,41) ; 

1030 NeN-MXJ:M-M/16:NEXT I:RETURN 

1100 REM ЖЖ PRINT SCREEN OF MEM. DATA 
жж 

1110 7 CHR$(125):FOR Ү=4 TO 16 STEP 2: 
POSITION 5,Y:N=AD:GOSUB 1010:POSITION 


10,Y 
1120 FOR K=0 TO 7:N-PEEK(AD):GOSUB 101 
0:7 " "; :Ар=Ар+1 :МЕХТ К 


1130 NEXT Y:RETURN 

2000 DFM XX CONVERT HEX IN N$ TO DEC. 
+ МЖЖ 

8010 N=0:FOR 1=1 ТО LEN(N$) : N-NX16tA5C 
(D$ CASCINSUI))-47))-64: NEXT. І : RETURN 


=0) 
=1) 


- 


Branch on Not Equal to zero (7 
Branch on Plus (neg. flag reset №0) 
Branch on MInus (neg. flag set №1) 


Branch on EQual to zero iz 
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STRINGING ALONG 
WITH PILOT 


by Ruth Ellsworth 


Having felt tangled up in strings when | first began programming in BASIC, 
! was delighted to discover ATARI PILOT made strings easy to use and much 
easier to understand. 

In ATARI PILOT a string is any group of characters used together as a 
group. They can be a series of letters, numbers, symbols, or words, and can 
be used in combination. Strings are stored in "string variables," chosen by 
the programmer and indicated by placing a “%” before the string name. For 
example $NAME could be a string variable in which a personal name will be 
stored. As an illustration with my children, we thought of strings as being like 
slots in a toy shelf. Each slot has a name, and any toy desired is placed in the 
assigned slot and retrieved by going to the slot named. 

One does not need to dimension strings in PILOT. One needs only to use 
the A: command followed by the undefined string variable to allow a desired 
String to be assigned to that variable in a program. The simple spelling 
program at the end of this article illustrates this common use of string 
variables. 

String values can be assigned in several ways. They can be assigned from 
the keyboard during the run of a program using the Accept (A) command or 
placed into the accept buffer without keyboard input by using the command 
А:- followed by the string variable. 

The Compute (C) command assigns values to string variables in a program 
without keyboard input during programming so its value is set when the 
program is run. Thus in the program below, if one desires to place spelling 
words directly into strings $ONE, $TWO, etc. before the program is run, one 
changes the A:$ONE to C:$ONE = desired word. 

Through the use of the Compute command strings can be combined to 
form new strings. This is done by giving the string variable name the value of 
other strings values in the program which may be combined in any way 
desired. We found this ability of the PILOT language especially useful in word 
and story games to from compound words or ideas. 

It is also possible to use associated string values in Atari PILOT. My 
children decided associated values were like looking at a stack of dishes (yes, 
Virginia, all the boys in our house do dishes). We have a stack of plates which 
are stacked several sizes together to save space. The ones we used most 
often are slid under ones of a smaller size. They decided all the values for 
associated strings are placed together, one under the other. When the value 
is desired, its location is indicated by the use of repeated $ to show its 
location in the stack. Two dollar signs, for example, show the value was 
second from the top. The more $ the further down in the stack as indicated by 
the number of dollar signs. Thus, $FIRST = ONE places the value ONE on the 
shelf; $ОМЕ = TWO places TWO under the associated value ONE; and 
$TWO = THREE places the associated value THREE under TWO. In this 
example $ONE = ONE, $$ONE = TWO, and $$$ONE- THREE. Those more 
accustomed to programming or familiar with FORTH may not like this 
particualr explanation, but it has worked well for us. | offer it only in the event 
someone else may find it useful. One may, instead, want to think of the $ sign 
as addresses and of going to suceeding addresses. 

In addition to allowing string variables to be displayed in a program with 
the Type command, PILOT allows the variables to be dumped so their values 
may be displayed with the DUMP command, and to be changed using the 
VNEWS$ command. | have included an example of the VNEW$ command in 
the spelling program which allows the program to run continuously without 
defaulting to regular text mode. 

The program included here is simple, but one of the most used educational 
programs at our house. It allows the child to input 5 words at a time which are 
selected randomly through the use of the random number option in PILOT. 
The words are first displayed in the order entered, and then individually. The 
child selects the length of time the word is displayed before he attempts to 
spell it by pressing the return key so the screen can be cleared and he can try 
spelling it. The time could be controlled by placing a PA: command and a time 
number in place of the A: command in the program. Each word is displayed 
after the attempt whether it is spelled correctly or not to reinforce the correct 


^^ A ATARI PILOT 
FOR BEGINNERS 


A Review by Ruth Ellsworth 


ATARI PILOT FOR BEGINNERS by Jim Conlan and Tracy Deliman with 
Dymax is the most comprehensive teaching tool for ATARI PILOT ! have seen. 
What it lacks in sense of humor and fun that PICTURE THIS! had it makes up 
in the completeness with which it covers the PILOT language. ! discovered 
several things about PILOT which | had missed or overlooked, such as the 
fact the Turtle moves backward. 

The book is divided into short chapters suitable for lessons which include a 
self-test with answers and a summary of the ideas presented in the chapter 
just completed. The illustrations are simple but well chosen, and it is well 
indexed allowing easy review and reference. | 

No assumptions are made as to the reader’s knowledge of either 
computers or computer language. A brief description of the PILOT language 
is followed by an explanation of the use of the keyboard with special 
emphasis on the control keys. Sound, which is easier than graphics in ATARI 
PILOT, is presented first, then turtle graphics, followed by general 
programming skills. | 

Though every subject was well covered, | liked the approach to graphics 
found in David Thorburg's PICTURE THIS! better, in spite of being less 
comprehensive. If | were trying to learn about ATARI PILOT, I would study the 
first four chapters of ATARI PILOT FOR BEGINNERS then read PICTURE 
THIS! before completing the rest of ATARI PILOT FOR BEGINNERS. 
However, in the event only one book can be chosen, ATARI PILOT FOR 


BEGINNERS is definitely my choice. 
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Under The Tree 


By Brian Dunn, author of Brian's Arcade 


This month | am going to write an article on some of the games | like and 
think will be very good Christmas or Hanukkah presents. 


Pac-Man and Centipede from Atari Inc. 

Pac-Man and Centipede are both very good games and they both look 
almost exactly like the arcade versions. The graphics on Pac-Man are very 
close to the arcade version and the sound is identical. Centipede is also a 
very good duplication of the arcade version. The sound and graphics are 
extremely good and are very close to the arcade version of Centipede. 

Both Pac-Man and Centipede are available from Atari Inc. or your local 
software dealer. They both come on a ROM cartridge and cost about $45. 


Protector Il from Synapse Software 
Protector Il is a very good space game. | like Protector Il for a couple 
different reasons. Protector ІІ has very good graphics — а lot better than 
Protector І. The game also has superb sound and great animation. The game 
comes on a disk for around $30. For a full review of Protector II read the last 
A.C.E. Newsletter under ‘“‘Brian’s Arcade". 


Wizard Of Wor from Roklan Software 
Wizard Of Wor is an outstanding arcade game which could also be called 
an arcade adventure. If you have ever seen the arcade game Wizard Of Wor 
and you like it you will love the home version because the arcade version and 
the home version are almost identical right down to the sound, graphics and 
mazes. Wizard of Wor is available on disk for $40 and on ROM cartridge for 
$45. For a full review of Wizard Of Wor read the next A.C.E. newsletter. 


Rumors ... 

Гуе heard the author of Caverns of Mars has come out with a Caverns of 
MArs II. | heard it is really good but instead of scrolling down the screen you 
scroll to the right of the screen which means the game is kind of like Air 
Strike from English Software and is also like the arcade version of Scramble 
or Super Cobra. 

| have also heard, from a reliable source, that Atari Inc. has the home 
computer rights to Donkey Kong and Donkey Kong Junior and both of those 
games are supposed to be best sellers next year, just wait. If Atari is going to 
release both of those games | think they should put both of those games on 
one cartridge if possible. 


Up and Coming games which look good: 


Miner 2049'er. Although І have not seen this game, from the advertisement 
in the latest Compute! magazine it looks like a very good game somewhat 
similar to Donkey Knog. It has 10 different screens in which you must get to 
the top in each of them. | am hoping to get a review copy of Miner 2049'er and 
if | do I will review it as soon as | can. Miner 2049'er is available from Big Five 
Software for $49.95. Miner 2049'er is available on ROM cartridge and is the 
first 16k ROM cartridge ever. 

Well that's all for this month folks, so | want all of you to have a very 
HAPPY HOLIDAYS. 


— Merry Christmas and Happy Hanukkah from Brian Dunn 


Meet Ruth Ellsworth 


The stereotype of computer hobbyists as esoteric whizkids is quickly 
fading as the personal home computer becomes ever more popular. Just look 
at Atari Computer Enthusiasts of Eugene: we have members from all walks of 
life and of all ages. 

For example, meet Ruth Ellsworth, whose normal role is being the mother 
of five boys and one girl ranging is ages from 3 to 22. She and her husband, 
who teaches at Lane Community College, raise their family on a small farm 
outside Eugene, Oregon. Their lifestyle is quite different from many computer 
buffs. Following a do-it-yourself philosophy, they raise much of their own 
food and butcher their own meat. They built their house and sew their own 
clothes. Their 12-year-old son has his turn on the family Atari after he has 
milked the family cow. 

Ruth became interested in micro-computers after seeing a public TV 
program on computers in education about 2 years ago. To Ruth, the computer 
seems a way to help her children learn at home: to reinforce what they learn 
at school and to fill in possible gaps. As an educator myself, | appreciate her 
concern from a different perspective. A student's attitude and success are 
very reflective of the interest shown by parents (as well as teachers) in what 
the child is doing at school. Ruth has the foresight to see the many teaching 
situations provided by the computer. 

Education has been the occupation of Ruth's ancestors back into the 13th 
Century. She herself has participated in the formation of ACE's new 
Educational Researchers, an organization dedicated to the educational use of 
computers both in the school and at home. 

ERACE is proud to announce a new compilation of programs Ruth has 
written іп PILOT. Programmed Inquiry, Learning Or Teaching is а 
programming language designed with teacher and student in mind. It is an 
authoring language for educators who want to design their own lessons, as 
well as a learning language for students who want to learn to "teach" the 
computer to do things. Ruth has written several programs for her children 
which she now shares with the members of ACE. Included are several math 
drills іп which the student has the choice of addition, subtraction, 
multiplication or division. My children especially like competing against 
themselves in the timed drills. My 3-year-old enjoys matching colors and 
coloring flowers and balls with simple movements of a joystick. An etching 
program in two versions allows the child to draw and fill-in colors. She's even 
included one dealing with music on a keyboard depicted graphically on the 
screen. Still in the works to be added is a spelling program. 

If you have Atari's PILOT cartridge, these programs are for you. Ruth has 
laid some groundwork upon which many of you will build. І look for much 
more to be done in PILOT, both by Ruth Ellsworth and by you whose 
imaginations are sparked by her creativity. 


—R. DeLoy Graham 


BUMPAS REVIEWS 


ADVENTURE INTERNATIONAL, Box 3435, Longwood, FL 32750 (no prices 
given) has two new pieces of software available. They are fully warranted for 1 
year. If a defect occurs beyond 1 year they will replace the item for $5. 

The first is DISKEY by Sparky Starks. The disk contains a number of 
utilities which will recover damaged disk information. You may examine and 
modify the information on the disk. You may be able to repair some files 
which you thought were lost. 

The documentation comes in a digest-size booklet of 64 pages, and seems 
very complete. It includes a good discussiorr of Atari disk parameters before 
it gets to the use and "abuse" of DISKEY. 

l've had a lot of fun with these utilities. l've never seen the "inside" of a 
disk before. So l've been using it mainly to explore around on some of the 
disks | have. | hope | learn enough about machine language to repair damaged 
disks by the time | need it. 

The second А! disk is BASIC ROUTINES by Jerry White. This piece of 
software is crammed with dozens of short routines and utilities divided into 
20 items on a menu-driven disk. Most of the items provide a basic foundation 
for many of the programming routines you will need to use in developing your 
own software. 

There are also some utilities to use in editing and otherwise manipulating 
your BASIC programs. There is also a 64-page digest sized booklet with a 
chapter (and program listing) for each Menu item, as well as three additional 
chapters discussing methods to conserve memory, speed up your program, 
and using PEEKs and POKEs. 

This work by Jerry White is presented with color & graphics, sound.and text 
and may be valuable to anyone who wants to begin programming their own 


software. 
BRIDGE MASTER 


This program is available on disk for $21.95 from DYNACOMP, 1427 Monroe 
Ave., Rochester, NY 14618. It is an upgrade of their former Bridge 2.0. If you 
own the original, you may obtain the upgrade by sending them your original 
cassette or disk, together with $5 plus $2 handling. They were VERY prompt. I 
received the disk in what seemed less time than was required for my order to 
reach NY. 1 also sent off two pages of questions, and they were also very 
prompt with responses to the questions. Most of my problems with the 
program was due to my lack of understanding about Duplicate Bridge. Гуе 
never played Duplicate. The documentation tells you the program generates 
hands numbered from '0-999'. A numbered hand produces the same card 
distribution each time you select it. You may play the same hand as many 
times as desired. You may also switch positions in the same hand, and see 
how you may do on the other side. The documentation also tells you the 0 
hand produces a random hand each time you select 0. | didn't find that to be 
true, and asked Dynacomp where the random hand could be found. Their 
response showed me the hands were actually numbered from 0.00 to 999.99. 
That's 100,000 hands, instead of 1000. Who needs another random hand 
generator? | hope I live long enough to play 100,000 hands (not likely!). The 
program keeps score and saves it to a disk file so you can come back to it any 
time. The menu lets you display the last hand played. So it you're playing the 
numbered hands sequentially, it's easy to pick up where you left off. There 
are no graphics — it's all text. With all the scoring and reading and writing to 
disk it seems slower than the 2.0 version it replaces. It has added some 
functions not covered by the 2.0. They've added pre-emptive openings, 
Blackwood and Stayman conventions. The program will also recognize 
demand bids and jump-shift responses. These are all nice improvements. 
Dynacomp says "sometimes it makes dumb plays!" | can second that! It 
makes them by your partner, as well as by your opponents, so maybe it evens 
out. Little things like trumping one's own high card, setting up an opponent's 
loser. The program makes you look like a very good Bridge player — you can 
win a lot. It’s good practice for someone wanting to learn to play. | think lm a 
pretty good player, and I'm having fun with it. 


— Jim Bumpas 


ERACE 


In the last month we have made contact with three other user groups 
interested in educational software and applications. 

Bill Nordstrom, from the Twin City Atari Interest Group (ESIG/TAIG), has 
sent us their first efforts in compiling a listing of available software and 
software manufacturers. They are cataloging this information using 
"Filemanager 800". Hopefully we will be able to interface with them to build a 
complete listing and avoid duplicating our efforts. 

Bill says they are also soliciting information on educational software and 
will appreciate hearing from anyone. 

We also heard from David Ahl at MACE. He will be sending some programs 


and information on programs they are using in the Michigan school system 


where they have decided to install Atari computers. 

The user group from MIT has shown an interest in what we are doing and 
will be in touch with us. 

The December 7 meeting begins the software evaluation criteria 
development. We discussed our concepts of program content and design. 

Alice Erickson suggests we try to develop a software program based on our 
evaluation criteria which will allow us, or anyone, to more thoroughly and 
objectively evaluate and rate software. Evaluations will then be more 
consistent. The manufacturers and writers will then know how the programs 
are rated and what we as users expect to see in a program. 

ERACE has taken on a formidable project and we can use any help you 
have to offer. If you have any information on educational software let us 


know. 


DATA PERFECT/ 
FILEMANAGER + 


REVIEW/COMPARISON 


by Kirt E. Stockwell 


The first major difference shows up when loading the program into the 
computer. Data Perfect loads quickly and in a straightforward manner. 
Filemanager 4 loads quite slowly, with built-in pauses and hard-crashed 
sectors which give a disk drive fits. | personally dislike commercial software 
marketed this way. (Seems like abuse of the equipment.) There must be a 
better method of protecting copyright privileges. 

Another item not escaping my notice is: Data Perfect resides entirely in 
memory, whereas Filemanager -- keeps only the kernel in RAM and must stop 
to load the various utility segments individually as they are to be used. The 
problem here is room. While Data perfect is written in machine language, 
FileManager + appears to be written in Basic. This leads to another point | 
want to bring to your attention. Filemanager functions best on a two-drive 
system. This saves the user from having to swap data and program disks 
constantly. There is a provision made in the program to circumvent this 
problem. An option allows you to “initialize’’ your data disks. This feature 
writes parts of the program to your data disks, making the program more 
convenient to use and cutting down on the amount of free data space on the 
disk. 

Lest it seem my intention. here is to run FileManager+ into the ground, 
there are many other things which need saying. First of all, the 
documentation provided with FileManager-- is miles ahead of what passes 
for documentation with Data Perfect. FileManager + documentation actually 
guides you step-by-step through examples of creating input and output 
formats as well as examples of how to use each utility incorporated into the 
program. 

Some features are common to both programs. These include the ability to 
define field types such as: Alpha Numeric, Dollars & cents, repeating 
numbers, Computed numeric and computed Dollars & cents. FileManager 
also allows modification of a format even though there may be many records 
stored using an old format which is to be changed. Modification of a format is 
followed by the conversion of the database to fit the new format. This is an 
essentially automatic function. This does not, however, destroy either the old 
format or the old database. Functions similar to this can be used to combine 
databases created using two differing formats. 

FileManager -- also states the program can take advantage of the AXLON 
RAMDISK. 

Both programs store the record format on the disk which holds the actual 
data. Both also provide for backup copies of the format and the data. Data 
Perfect also provides backup of the program disk: The program is written on 
both sides of the disk as it is sent. 

Data Perfect is inherently more powerful and flexible than FileManager +. 
This is not to say everybody who needs a database manager should run out 
and get Data Perfect. Here we have a classic example of a program so 
powerful and flexible most-people can't use it. For those of you who are 
familiar with computer languages used on LARGE systems, such as IBM 
Mainframes, Data Perfect has many similarities to RPG (Report Program 
Generator). While not exactly a language, RPG requires learning many 
specific facts and certain routines in order to manipulate the program to 
accomplish what you need. Data Perfect is much like this. While you will need 
to study and fiddle and probably foul up some, the end product is a database 
tailored to your needs and as powerful as if you had paid a professional 
programmer to write it for you. The reporting capabilities are stupendous, 
again acting very much like RPG. 

| urge SYNAPSE to hire someone to convert FileManager + into Machine 
Language, and encourage LJK to hire a competent documentation specialist 
to write a full length book to explain Data Perfect. 

Both programs are top notch, and both are capable of performing at a 
higher level than most users are apt to need. For those of you whose needs 
are relatively simple, | suggest the acquisition of FileManager+. For more 
complex reporting and data manipulation, Data Perfect may be more 
appropriate. Another item you may wish to take into consideration is the 
ability to merge Data Perfect and Letter Perfect files. At this time, one of the 
more potent considerations might be the amount of time you are willing to 
spend learning to use the database manager of your choice, and how 
complex your needs are likely to get. 
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Machine Language 


Programming No.2 
Index registers, flags and branching 


There were a couple of mistakes in the Machine Language Programming 
#1. The pound signs indicating immediate mode were omitted before $79 and 
$AA in Listing 2. Also, the words “Contents” and “Address” were reversed in 
Figure 1. The listing of D:HEXPOKE, omitted last time, appears in the 
centerfold of this issue. 

Besides the accumulator the 6502 CPU also has two index registers called 


'X' and 'Y'. They can easily be incremented (with single byte instructions INX . 


or INY), or decremented (DEX,DEY). Normally they are used to modify the 
address involved in an operation. LDA $0600,X for example means load the 
accumulator with the byte at location $0600 MODIFIED BY X. If X is 0 the byte 
at $0600 will be used. If X is 3 the byte at $0603 is used while if X=$BA, the 
byte at $06BA will be used. To get numbers into the index registers there is a 
full compliment of load X and load Y instructions just as there are LDAs 
(immediate, absolute and zero page addressing modes). 

To see the value of the index register suppose the address of the byte of 
the upper left hand corner of the screen is $7C40 and we want to put a line of 
'A's' across the top of the screen. We could write a program to store an 'A' 
from the accumulator into each of the 40 bytes involved but it is much easier 
using X to modify the address and just change X: 


LDA #$21 ; ‘A’ Use Table 9.6 change to hex 
LOOP STA $7C40,X 
INX ; Next position 


Go back to loop 39 more times 


A couple of problems present themselves however... 
(1) we must be sure X starts at 0 
(2) We must stop the looping process after 39 loops. 

The first problem can be taken care of by a LDX #$00 before the looping 
Starts, but what about the second? For that we must learn about FLAGS. 

Flags indicate some action has taken place. There are a number of them in 
the CPU, (all in one register actually), and they are either set (value= 1) or 
reset (value 20). Most operations set or reset the flags depending upon 
results of the operation. For example, the LDA instruction will set the ZERO 
FLAG if the accumulator gets loaded with a zero and reset it if it doesn't. It 
will set the NEGATIVE FLAG if a negative number gets loaded, and reset it 
when a positive number is loaded. We haven't talked about positive and 


itself (the one you are trying to determine, not the op-code), begin with $FF 
and count backward up to and including the op-code of the instruction to 
which you want to branch. Remember $EF comes after $Е0. The count is then 
used as the second byte of the branch operation. Listing 1 is a 'do-nothing' 
program which you can use to practice branches. In summary; branches 
depend on flags set or reset by the previous instruction(s). 

Rather than use an index for counting it is sometimes convenient to use a 
memory location. There are increments and decrements for both the absolute 
and zero page addressing modes. Table 1 gives an update of op-codes 
covered in this session. Try re-writing the line of 'A's program using a zero 
page counter rather than index register X. There are only a few zero page 
locations free for our use. Appendix D of the Basic Manual shows these to be 
$CB to $D1. 

Use 'Hexpoke' to find the address of the upper left corner of the screen, 
($58 is low order and $59 is high order byte). Using this address in the STA 
- — — X operation, load and run the ‘A’s program. Fast wasn't it? actually 
machine language instructions take only a few millionths of a second each so 
the whole program took far less than a thousandth of a second. You often 
have to keep this speed in mind because things can happen too fast! 


Problem #3 

First extend the 'A's program to fill 256 screen spaces with A's. Then try to 
fill the whole screen with A's. Use index Y to keep track of 3 increments of the 
high order byte of the screen address. You will have to create a program 
which modifies itself. This is not good practice but can be done until we show 
a better way to handle the problem. If you run into problems with a failure to 
fill when X is zero, try DEX, then STA then the branch. Remember STA affects 
no flags. 


Problem #4 
Try to use loops to get an idea of how fast machine language instructions 
execute. Create a loop within a loop, the outer loop changing once every time 
the inner one goes through 256 cycles, (65,536 inner cycles to go through the 
outer loop). Even this may not provide enough delay to time the process. If 
not, create a third outside loop of 20 or so repetitions. You can use X and Y 
registers, absolute or zero page locations for the increments or decrements. 


—Stan Ockers 


0520 ; 


0530 ; Do Nothing Prograa"io Illustrate Br 


negative numbers but numbers $00 thru $7F are positive while numbers $80 anches 
| thru $FF are negative. 0540 : 
| All load instuctions affect the zero and negative flags while store ы 
| instructions don't affect any flags. The increment and decrement instructions 0611 0550 x=" $0000 
also affect these same two flags and there are special instructions which are 
executed or not depending on the condition of the flags. These BRANCHING 0000 A9CB 0560 START LDA #$СЕ 
INSTRUCTIONS it to d ditional looping, loopi ly whil 
certain Sonde О pes ane im geli ei, А 0002 DOOA 0570 BNE GETBYTE 
conditional loop. 0004 CA 0580 DNONE DEX 
0005 1003 0590 BPL  UPONE 
10 ; Put A's across top of screen 0007 88 0600 DEY 
20 ; | 0908 30FA 0410 BMI  DNONE 
0000 30 Же" $400 000A ЕЗ 0620 UPONE INX 
0600 68 40 PLA 000B C8 0630 INY 
0601 A227 50 LDX #$27 ; 39 in decimal 000С FoF& 0640 ВЕЙ МОМЕ 
0603 A921 4640 LDA $21 ‚ ап “А! 000E В00002 0650 GETBYTE LDA $0200 ,X 
0605 9D407C 70 LOOP ЭТА $7C40,X ; Put on screen 0011 85CB 0660 STA $C 
0608 CA 80 DEX ; Next position 0013 FOEB 0670 BEQ START 
0609 DOFA 90 BNE LOOP ; Again if not 0015 DOED 0680 BNE  DNONE 
zero 
060B DOFE 0100 HOLD BNE HOLD ; 50 screen not 0110 : 
cleared 0120 ; 
A f hi tice: To be able t test of th fl t 
down тайы тт сш ыы зк кы Becca cone 0130 ; ANSWERS TO PROBLEMS 
zero flag being reset (Branch on Not Equal to zero, BNE). The 'A's will be 0140 ; 
printed from right to left rather than the normal way because the index is а 
decrementing. The loop is done 39 times for hex values $27 thru $01, it is not 0150 ; Problem $1: А really wierd clock 
done for X=0, (hint: try BPL instead). It is not necessary to reload the à 
accumulatior each time because the decrementing of X or branching does not 0160 ; I find the upper left corner at $7C 


affect the accumulator. 
All branches are two byte instructions and they are relative branches which 40 (32K) 

means the point they branch to is measured forward or backward relative to 0170 

the branch location itself. Positive numbers ($00-$7F) branch forward to future 


code while negative numbers ($80-$FF) refer to branching backward to code 060D 0180 x=" $600 
already written. To see where the branch goes you have to count bytes ina 

particular manner. On a forward branch start counting (in hex) with byte one 0600 68 0190 PLA 

being the byte following the branch instruction (the next ор-соае). Count up 

to but not including the op-code to which you want to branch (remember the 0601 A512 0200 AGIN LDA $12 
number after $0F is $10). For backward branches, start with the branch byte 0603 8D407C 0210 STA %7С40 
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0606 А513 0220 
0608 8D417C 0230 
0608 А514 0240 
0600 80427С 0250 
0610 4С0106 0260 
0270 
0280 
0290 
0300 
0613 0310 
0600 68 0320 
0601 AMAA 0330 
udness 10 
0603 800102 0340 
0606 807002 0350 
0609 800002 0360 
040E 4C0606 0370 
0380 
0390 
0400 
060Ғ 0410 
0600 68 0420 
0601 АЗАА 0430 
0603 800102 0440 
0606 А07802 0450 
0609 0A 0460 
0504 0А 0470 
0608 800002 0480 
060Е 4С0606 0490 
0500 
0510 


LDA 
STA 
LDA 
STA 
JMP 


$13. 
$7C41 
$14 
$7042 
AGIN 


; Problem #2 
; For paddle controllers 


$=" 
PLA 
LDA 


STA 
MORE LDA 
STA 
JMP 


1 


$600 
FEAA ; Pure tone, lo 


$0201 ; IN AUDCI 


$270 ; Paddle 0 
$0200 ; in AUDFÍ1 
MORE ; forever 


; For joystick controller 


ý=" 
PLA 
LDA 
STA 
REPT LDA 
ASL 
ASL. 
STA 
JMP 


$600 


ESAR 

$D201 

$278 ; Joystick 0 
A 

А 

$0200 

REPT 
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The 


Game Writers’ Column 
by Jon Atack, Eugene A.C.E. 


THE GAME WRITER'S COLUMN is a new column especially for Atari users 
who know the basics of machine language but don't know how to put 
everything together to get the smooth graphics and awesome sounds of the 
commercial games. Each month, we'll be going over techniques used in just 
about every arcade game on the market, including: 

* Vertical Blank Interrupts 

* Player-Missile movement routines 

* Display Lists 

* Display List Interrupts 

* Sound and Music routines 

* Special Effects in colors and sounds 

* System Secrets used by game-makers 

First of all, before you can write in assembly language, you should have an 
assembler/editor. All an assembler/editor does is take the assembly language 
you type in (called Source Code) and translate it into the machine language 
the Atari understands, also called Object Code. The one | use now, and the 
one | strongly recommend to anyone programming in machine language is 
the SynAssembler, written by Synapse Software. It requires a disk drive and 
48K, but is the fastest and easiest to use assembler І have seen. After using 
the Atari Assembler/Editor cartridge and being frustrated by its bugs and 
snail-paced assembling speed, | set out looking for a faster assembler which 
is just as easy to use with perhaps a few more powerful features, and the 
SynAssembler is it. Whatever you do, DON'T buy the Atari Assembler/Editor 
cartridge. | did, and it was a mistake. 


On to this month's topic: Vertical Blank Interrupts, referred to as VBI. VBI is 
the key to the smoothness of the graphics in commercial games. But first, a 
short explanation of vertical blank is in order. When the TV is drawing a 
picture on the screen, it starts at the top left corner and draws lines from left 
to right until it finishes at the bottom. Then it waits for a few microseconds 
before it starts to draw another picture. This period of time between drawing 
the screens is known as the Vertical Blank, when the TV isn't drawing 
anything on the screen. A Vertical Blank Interrupt is simply when the Atari 
interrupts what it's doing to run a program timed with the TV screen, so it is 
executed during the vertical blank of the TV. Vertical blank occurs every 
1/60th of a second, or 60 times every second. 

Why is this important? First of all, УВ! is useful for routines which need to 
move at a regular pace, never speeding up or slowing down, such as music 
routines. Second, graphics changes can be done during the vertical blank to 
make sure they don't occur when the screen is drawing over them. This is 
how commercial games achieve their ultra-smooth graphics: By doing all 
animation and screen drawing during the vertical blank. The change comes 
on the screen neatly and smoothly without the image jerking or blurring. 
Another use is for monitoring user inputs, such as reading the joystick, so the 
responsiveness stays the same speed even if the main program slows down. 

Implementing your own VBI routine is surprisingly easy. There аге two 
RAM vectors for VBI: one for immediate VBI and one for deferred VBI. The 
only difference is immediate VBI runs before the Operating System's VBI 
routine, and deferred VBI runs after the O.S. VBI routine. Which to use? The 
immediate is better for graphics changes and general I/O, but if the VBI 
routine is very time-consuming in execution it has to be deferred, or else the 
screen jerks 60 times a second, giving unsightly effects. Also, deferred VBI is 
useful for writing to hardware registers after the O.S. VBI routine has written 
to them, giving you the last word, so to speak. For example, this is how to get 
rid of the annoying attract mode when your game is running. 

Once you have decided whether your VBI should be immediate or deferred, 
you should place your routine in memory, link its termination to the regular 
VBI processing, and modify the appropriate RAM vector to point to it. Here's 
how: 


1; Place your VBI routine into memory. At the end of it, have it do a JMP 
$E45F for immediate VBI or a JMP $E462 for deferred VBI. 

2. Now, in your regular program, you must set up the RAM vectors So 
your УВ! routine will be run. 

3. Load the X-register with the Hi-byte of the address of the beginning 


of your VBI routine. 
Example: LDX #$40 if the address was $4080 
4. Load the Y-register with the Lo-byte of the address of the beginning 
of your УВІ routine. 
Example: LDY #$80 if the address was $4080 


5. For immediate VBI, load the accumulator with a 6 (LDA #6). For a 
deferred, load the accumulator with a 7 (LDA #7). 
6. Do a JSR %Е45С. $E45C is an O.S. routine called SETVBV which 


changes the VBI RAM vectors $222,$223 and $224,$225 to point to 
your VBI routine. Control will be returned to your program within 
1/60th of a second or less. 
An example to set up an immediate VBI routine located at $600 (Page Six) 
follows... 


100 LDX #6 
110 LDY #0 
120 LDA $6 


130 JSR $E45C 
...and your VBI routine will have to end with a JMP $E45F. 
Your VBI should begin running in 1/60th of a second following these 
instructions. If you have any problems or questions, feel free to call or write. 
My number is (503) 344-8347 or 686-8357, and my address is: 

—Jon Atack 

1865 West 29th St. 

Eugene, Oregon 97405 

In closing, | have also included two sound routines from my new game 

Meteor Storm. One is in assembly language form and one is in BASIC, for 
people who don’t have an assembler. Both use techniques which will be 
covered in a future column, and feel free to modify them or use them in your 
own games. Until next month, good luck and great gaming! 


—Jon Atack 








00001 
00100 


00110 ; 
00120 ; 
00130 ; 


00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00249 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 


; SOUNDS by Jon Attack 
Special Sound Routine 


М 
Li 
1 


‘ 


by Jon 


Atack 


; Written on the SynAsseabler 


= 


; -HS 00 is equivalent to 
; .BYTE 0 on the Atari Assembler 


; Try changing the values of 
; TIMER, INC, 8 RISE for 
; different sound effects. 


.08 $600 


START LDA #0 


LOOP 


5ТА SOUND 
LDA $$4 
STA $D208 
LDA #0 
STA $D207 
LDA #$AC 
STA $D205 
STA %0201 
LDA #192 
STA ТІНЕН 
LDA #160 
STA INC 
STA RISE 


LDA INC 
STA $D204 
DEC INC 
STA $D200 
LDA INC 
BEQ END 
CMP RISE 
BCS GOON 
LDA RISE 
CLC 

ADC 4850 
STA INC 
LDA RISE 
SEC 

SBC #2 
STA RISE 
LDY #20 


LOOPS JSR DELAY 


GOON 


END 


DEY 

BNE LOOPS 
JSR DELAY 
JMP LOOP 
LDA #0 
STA $0201 
STA $D205 
STA SOUND 
RTS 


00660 INC .Н5 00 

00670 RISE .HS 00 
00680 TIMER .HS 00 
00690 COLOR .HS 00 


00700 


М 


00710 DELAY LDX $60 
00720 100Р4 INC COLOR 


00730 
00740 
00750 
00760 
00770 


LDA COLOR 
STA $D016 
DEX 
BNE LOOP4 
RTS 


00780 SOUND .HS 00 


STARTS AT $600 


INITIALIZE SOUND REGISTERS 


TRY DIFFERENT NUMBERS HERE 


TRY DIFFERENT NUMBERS HERE 


SOUND ROUTINE 


DELAY AND CYCLE COLORS 
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SOUNDS by 
John Attack 


.Basic listing 


1 REM SOUND ROUTINE by Jon Atack 
2 GRAPHICS 17:5=PEEK(560)+256KPEEK (561 
):РОКЕ 548,7:POKE 5+9,6:РОКЕ 5410,7 
3 RESTORE 600: TRAP 8:A=1535:POKE 752,1 
-DIM A$(13*4):FOR D=i TO 52:READ B:A$( 
D,D)-CHR$(B) :NEXT 0: RESTORE 
д READ B:POKE A,B:A=At1:GOTO 4 
5 IF PEEK(764) 0255. THEN 8 

6 POSITION 3,3:7 $6;"A WES 0 M E":PO 
SITION 5,5:7 #6;"5 O U N D":POSITION 3 
,9:7 &6;"by jon atack" 

7 FOR 0=0 TO 3:POSITION 3,13:7 $6;4$1D 
ж13+1,0%13+13);:ҒОА Е=1 TO 21:NEXT E:N 
EXT D:IF РЕЕК(764)-255 THEN 7 

8 POKE 1654,26 

9 POKE 764,255: J=U5SR(1535) : GOTD. 5 

10 REM MACHINE LANGUAGE DATA 

15 DATA 104,169,0,141,121,6,169,4,141, 
8,210,169 

20 DATA 0,141,7,210,169,172,141,5,210, 
141,1 

30 DATA 210,169,192,141,104,6,169,160, 
141,102,6 

40 DATA 141,103,6,173,102,6,141,4,210, 
206,102 

50 DATA 6,141,0,210,173,102,6,240,37,2 
05,103 

60 DATA 6,176,26,173,103,6,84,105,80,1 
41,102 

70 DATA 6,173,103,6,56,233,2,141,103,6 
,160 

80 DATA 20,32,106,6,136,208,250,32,106 
,6,76 

90 DATA 36,6,169,0,141,1,210,141,5,210 
,141 

100 DATA 121,6,96,0,0,0,0,162,60,238,1 
05 

110 DATA 6,173,105,6,141,10,212,141,22 
,208 ,202 ,208,244,96 

120 DATA 0,0,-1 

500 REM PRESS ANY KEY DATA 

600 DATA 80,114,197 ,243 ,83,32,97 ,206,2 
49,32,75,101,217,112,210,229,83,115,32 
193,238 

610 DATA 89,32,107,197,249,208,842,69, 
115,211,32,225,78,121,32,203,229,89 
620 DATA 240,82,101,211,243,32,65,110, 
217,32,235,69,121,0,0 





TYPESET COPY 


From Your Computer 


If you have a modem, word processing and communications programs, 
you can transmit your manuscript, article, newsletter, or other text via 
telephone and have it converted into space-saving, easy-to-read type! 
Computer typesetting offers you high quality copy at ‘'do-it-yourself’’ 
rates: just $2.00 per 1,000 characters. And it's easy to encode your copy 
with our designated typesetting commands. Hundreds of type styles to 
choose from with 8 styles and 12 sizes “оп line!’ Write or call Dennis Hunt 
for a brochure and simple instructions. 


EDITING & DESIGN SERVICES 


3O East 13th Avenue Eugene, Oregon 97401 
Phone (503) 683-2657 
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Ente USIASTS 
2662 Vine Maple Dr. Eugene OR 97405 


Computer 
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Atari Computer Enthusiasts 


A.C.E. is an independent computer club and user's group with no connection to 
the Atari Company, a division of Warner Communication Company. We are a 
group interested in educating our members in the use of the Atari Computer and 
in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide in scope; membership fees include the A.C.E. 
Newsletter. Dues are $10 a year for U.S., and $20 a year Overseas Airmail and in- 
clude about 10 issues a year of the ACE Newsletter. Subscription Dept: 3662 Vine 
Maple Dr., Eugene, OR 97405. 

President —Kirt Stockwell, 1810 Harris #139, Eugene, Or 97403 / 503-683-3005 
Secretary — Charles Andrews, РОВ 1613, Eugene, Or 974401613 / 503-747-9892 
Librarian— Chuck and Jody Ross, 2222 lronwood, Eugene, ОН 97401 


503-343-5545 

Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 / 503-344-6193 
—Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 / 503-484-9925 

E.R.A.C.E. (Educational SIG) Editor—Larry Gold, 1927 McLean Blvd., Eugene, Or 

97405 / 503-686-1490 


Send a business-size SASE to the Ross' for the new, updated ACE Library List!! 


Bulletin Board 
(503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of a Tara 
equipped 48K Atari 400, 2 double-density disk drives, an Atari 825 printer, a 
Hayes SmartModem; running the ARMUDIC Bulletin Board software written 
by Frank C. Jones. See the Nov '82 issue for complete details. 
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